189 8069 5689

VB.NET中如何使用TreeView控件

这篇文章将为大家详细讲解有关VB.NET中如何使用TreeView控件,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。

创新互联公司专注于东兰网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供东兰营销型网站建设,东兰网站制作、东兰网页设计、东兰网站官网定制、微信小程序开发服务,打造东兰网络公司原创品牌,更为您提供东兰网站排名全网营销落地服务。

一、准备知识

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 

关于VB.NET中如何使用TreeView控件就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。


新闻标题:VB.NET中如何使用TreeView控件
本文路径:http://jkwzsj.com/article/ghijoh.html

其他资讯