VB.NET还是比较常用的，于是我研究了一下VB.NET使用TreeView控件，在这里拿出来和大家分享一下，希望对大家有用。VB.NET使用TreeView控件最典型的就是Windows资源管理中显示文件夹列表的左边栏，现在我们就模仿它来做一个按树状结构显示指定盘符中所有文件夹的小程序。
一、准备知识
1、了解 TreeView控件的基本使用，掌握如何添加树状结构的数据到TreeView控件中。
2、了解 ImageList 控件的基本使用。
3、了解VB.NET System.IO 命名空间中的Directory 类的一些常用用法，下面我们先了解下本文要用到Directory类的成员GetDirectories：它用于获取指定目录中子目录的名称。如下代码所示，获取C：盘下的子目录：
Dim dirs As String() = Directory.GetDirectories("c:\")
其结果是我们点开C盘后看到的文件夹，如果要获取更深层次的文件夹列表，就要一个一个文件夹循环使用Directory.GetDirectories方法。
二、窗体布局
在窗体上拖放一个TreeView控件，一个Button 按钮，一个ImageList 组件
然后把TreeView控件的ImageList 属性设置为 ImageList1，注意，TreeView控件还有一个 SelectedImageIndex 属性，它是用于获取或设置当树节点选定时所显示的图像的图像列表索引值。我们注意到其实VB.NET使用TreeView控件的每一个Node(节点)都有一个属于自己的 SelectedImageIndex 属性值，所以我们可以像设置节点的 ImageIndex 属性一样在运行时单位为每一个Node设置 SelectedImageIndex 属性。
三、编写代码
上面的准备工作和界面布置我们已经做好了，现在可以进行代码编写了。
首先，我们已经知道，要想获得树状结构的每个层次中的子文件夹，我们必须使用递归过程来完成，下面所示代码所执行的工作是：先把一个已经路径的文件夹添加到树状结构中，然后再遍历它的子文件夹：
- '添加文件夹
- Public Sub AddDirectory(ByVal strFatherPath As String,
ByVal strPath As String, ByVal nodeFather As TreeNode)- Dim iDir As IO.Directory
- Dim iDirInfo As IO.DirectoryInfo
- Dim i As Integer
- Dim node As New TreeNode
- '先添加本目录，从文件夹路径分析出文件夹名称
- node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1)
- '为单个节点指定节点未被选中时显示的图标
- node.ImageIndex = 1
- '为单个节点指定节点被选中时显示的图标
- node.SelectedImageIndex = 2
- nodeFather.Nodes.Add(node)
- Application.DoEvents()
- Try
- Dim str() As String = iDir.GetDirectories(strPath)
- '遍历该目录的子文件夹
- For i = 0 To str.GetUpperBound(0)
- AddDirectory(strPath, str(i), node)
- Next
- Catch ex As Exception
- Debug.WriteLine(ex.Message
- End Try
- node = Nothing
- iDir = Nothing
- End Sub
【编辑推荐】
