- 日時: 2015/02/11 19:20
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[ツリービュー][ファイル][フォルダー] * * キーワード:TreeView,指定フォルダ,サブフォルダ,ファイルのツリー表示,子ノード, * *********************************************************************************** タイトル : TreeViewでの子ノード追加の方法 記 事 No : 8487 投 稿 日 : 2008/12/21(Sun) 02:03 元質問者 : のぶ
1回の処理ですべてのフォルダ構成をTreeViewで表示させたいのですが、どうしても 親→子→子→ に表示できず、 親→子 でストップししまいすべてのサブフォルダが 1つ目の子配下に表示されてしまいます。
----------------------------------------------------------------------------------- 記事No : 8493 投稿日 : 2008/12/23(Tue) 02:58 回答者 : 魔界の仮面弁士 -----------------------------------------------------------------------------------
環境が書かれていなかったので、現行バージョン(VB2008)で記述しています。
Public Class Form1 Sub Button1_Click() Handles Button1.Click Dim sFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments TreeView1.ShowNodeToolTips = True TreeView1.BeginUpdate() TreeView1.Nodes.Clear() AddNode(TreeView1.Nodes, sFolder) TreeView1.EndUpdate() End Sub
Sub AddNode(ByVal Nodes As TreeNodeCollection, ByVal sFolder As String) Dim N = Nodes.Add(System.IO.Path.GetFileName(sFolder)) Try For Each sName In My.Computer.FileSystem.GetDirectories(sFolder) AddNode(N.Nodes, sName) Next Catch ex As UnauthorizedAccessException N.ToolTipText = ex.Message N.ForeColor = Color.Red End Try N.EnsureVisible() End Sub End Class
----------------------------------------------------------------------------------- 上記の実行結果 同様の当サイトのサンプルの結果
|