剖析VB.NET使用TreeView控件

开发 后端
这里介绍VB.NET使用TreeView控件,了解TreeView控件的基本使用,掌握如何添加树状结构的数据到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 属性。

三、编写代码

上面的准备工作和界面布置我们已经做好了,现在可以进行代码编写了。

首先,我们已经知道,要想获得树状结构的每个层次中的子文件夹,我们必须使用递归过程来完成,下面所示代码所执行的工作是:先把一个已经路径的文件夹添加到树状结构中,然后再遍历它的子文件夹:

  1. '添加文件夹  
  2. Public Sub AddDirectory(ByVal strFatherPath As String, 
    ByVal strPath As String, ByVal nodeFather As TreeNode)  
  3. Dim iDir As IO.Directory  
  4. Dim iDirInfo As IO.DirectoryInfo  
  5. Dim i As Integer  
  6. Dim node As New TreeNode  
  7. '先添加本目录,从文件夹路径分析出文件夹名称  
  8. node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1)  
  9. '为单个节点指定节点未被选中时显示的图标  
  10. node.ImageIndex = 1 
  11. '为单个节点指定节点被选中时显示的图标  
  12. node.SelectedImageIndex = 2 
  13. nodeFather.Nodes.Add(node)  
  14. Application.DoEvents()  
  15. Try  
  16. Dim str() As String = iDir.GetDirectories(strPath)  
  17. '遍历该目录的子文件夹  
  18. For i = 0 To str.GetUpperBound(0)  
  19. AddDirectory(strPath, str(i), node)  
  20. Next  
  21. Catch ex As Exception  
  22. Debug.WriteLine(ex.Message  
  23. End Try  
  24. node = Nothing 
  25. iDir = Nothing 
  26. End Sub 

【编辑推荐】

  1. 简单分析VB.NET Dock属性
  2. 浅析VB.NET面向对象编程的优点
  3. VB.NET名字空间学习笔记
  4. 详解VB.NET实现Web Service
  5. 简单讲解VB.NET静态成员
责任编辑:佚名 来源: 博客园
相关推荐

2009-10-23 13:14:38

2009-10-27 08:56:22

VB.NET文件夹

2009-10-28 14:34:44

VB.NET Tree

2009-10-12 16:51:28

VB.NET使用Ora

2009-10-16 14:07:18

VB.NET使用Mon

2010-01-12 15:54:47

VB.NET动态控件数

2009-10-28 11:27:34

VB.NET资源文件

2010-01-13 10:53:24

VB.NET控件

2009-10-20 10:16:24

VB.NET COMB

2009-10-14 16:04:43

VB.NET Noti

2009-10-14 10:19:57

VB.NET Doma

2009-10-21 16:00:26

VB.NET CASE

2010-01-21 17:23:05

VB.NET Radi

2010-01-19 12:53:59

VB.NET Text

2009-11-02 16:22:16

VB.NET面向对象

2009-10-16 16:01:07

VB.NET实现叠代使

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti

2009-10-12 15:02:51

VB.NET动态控件

2010-01-19 10:12:39

VB.NET Butt
点赞
收藏

51CTO技术栈公众号