Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
VB.NET 2002, VB.NET 2003, VB2005
フォルダツリー
以下の例ではツリービュー(TreeView1)にエクスプローラのようなフォルダツリーを再現する。アイコンなどは表示されないがフォルダの展開・縮小もできて、ちゃんと機能する。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each Drive As String In IO.Directory.GetLogicalDrives
TreeView1.Nodes.Add(Drive)
NextTreeView1.SelectedNode = TreeView1.Nodes(1)
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Try
Dim oFolder As New IO.DirectoryInfo(e.Node.FullPath)
For Each Folder As IO.DirectoryInfo In oFolder.GetDirectories
e.Node.Nodes.Add(Folder.Name)
NextCatch ex As Exception
End Sub
MsgBox(ex.Message)
End Try