サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2015/02/11 19:20
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ツリービュー][ファイル][フォルダー] *
* キーワード：TreeView,指定フォルダ,サブフォルダ,ファイルのツリー表示,子ノード, *
***********************************************************************************
タイトル ： TreeViewでの子ノード追加の方法
記 事 No ： 8487
投 稿 日 ： 2008/12/21(Sun) 02:03
元質問者 ： のぶ
１回の処理ですべてのフォルダ構成をTreeViewで表示させたいのですが、どうしても
親→子→子→ に表示できず、 親→子 でストップししまいすべてのサブフォルダが
１つ目の子配下に表示されてしまいます。
-----------------------------------------------------------------------------------
記事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
-----------------------------------------------------------------------------------
上記の実行結果 同様の当サイトのサンプルの結果
 |
