剖析VB.NET使用TreeView控件

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
 
 
 

当前题目：剖析VB.NET使用TreeView控件
网页路径：http://www.shufengxianlan.com/qtweb/news19/151969.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联