利用TreeView控件显示VB.NET文件夹列表

开发 后端
文章主要就VB.NET文件夹问题来分析,利用TreeView 控件显示文件夹列表的左边栏,文章分三个步骤:1准备知识、2窗体布局、3编写代码。

之前我们也提到过有关VB.NET文件夹的列子,今天我们来用TreeView 控件使用就在Windows资源管理中显示文件夹列表的左边栏,现在模仿它来做一个按树状结构显示指定盘符中所有文件夹的小程序,大家快看看。

一、VB.NET文件夹准备知识

1、了解 TreeView 控件的基本使用,掌握了如何添加树状结构的数据到TreeView 控件中,相关文章参看这里:vb.net入门——TreeView 控件的使用
2、了解 ImageList 控件的基本使用。
3、了解vb.net System.IO 命名空间中的Directory 类的一些常用用法,下面我们先了解下本文要用到Directory类的成员GetDirectories:它用于获取指定目录中子目录的名称。如下代码所示,获取C:盘下的子目录:

Dim dirs As String() = Directory.GetDirectories("c:\") 
  • 1.

其结果是我们点开C盘后看到的文件夹,如果要获取更深层次的文件夹列表,就要一个一个文件夹循环使用Directory.GetDirectories方法。

二、VB.NET文件夹窗体布局

在窗体上拖放一个TreeView 控件,一个Button 按钮,一个ImageList 组件。

在ImageList 组件中按顺序添加如下三个图标(单击这里下载图标文件),图标大小设置为16*16。

然后把TreeView 控件的ImageList 属性设置为 ImageList1,注意,TreeView 控件还有一个 SelectedImageIndex 属性,它是用于获取或设置当树节点选定时所显示的图像的图像列表索引值。我们注意到其实TreeView 控件的每一个Node(节点)都有一个属于自己的 SelectedImageIndex 属性值,所以我们可以像设置节点的 ImageIndex 属性一样在运行时单位为每一个Node设置 SelectedImageIndex 属性。

三、VB.NET文件夹编写代码

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

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

'添加文件夹  
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 
  • 1.
  • 2.
  • 3.
  • 4.
  • 5.
  • 6.
  • 7.
  • 8.
  • 9.
  • 10.
  • 11.
  • 12.
  • 13.
  • 14.
  • 15.
  • 16.
  • 17.
  • 18.
  • 19.
  • 20.
  • 21.
  • 22.
  • 23.
  • 24.
  • 25.
  • 26.

然后在按钮的Click事件中添加代码,用于添加树状结构的顶层以及调用遍历子文件的递归过程,详细代码如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
Dim iDir As IO.Directory  
Dim node As New TreeNode  
'先把C盘添加到树中  
TreeView1.Nodes.Clear()  
node.ImageIndex = 0 
node.Text = "本地磁盘 C:" 
node.SelectedImageIndex = -1  
TreeView1.Nodes.Add(node)  
Dim i As Integer  
'获取C:盘根目录下的文件夹  
Dim str() As String = iDir.GetDirectories("C:\")  
For i = 0 To str.GetUpperBound(0)  
'调用遍历过程  
AddDirectory("C:", str(i), node)  
Next  
node = Nothing 
iDir = Nothing 
End Sub 
  • 1.
  • 2.
  • 3.
  • 4.
  • 5.
  • 6.
  • 7.
  • 8.
  • 9.
  • 10.
  • 11.
  • 12.
  • 13.
  • 14.
  • 15.
  • 16.
  • 17.
  • 18.
  • 19.

代码添加完毕后,运行,效果如下图所示:

vb.net使用TreeView 控件显示文件夹列表(图三)


显示C盘的效果

【编辑推荐】

  1. VB.NET获取硬盘信息四大法宝
  2. 讲述VB.NET调用Excel的好处
  3. 简单例子概述VB.NET新窗体
  4. 描述VB.NET工程转换成步骤
  5. 自己动手实现VB.NET控件数组
责任编辑:田树 来源: qqread
相关推荐

2009-10-13 15:09:19

VB.NET使用Tre

2010-01-13 10:25:30

VB.NET文件夹操作

2010-01-21 13:34:56

VB.NET删除文件夹

2009-10-27 11:03:16

VB.NET文件夹操作

2009-10-27 17:59:16

VB.NET删除文件夹

2009-10-28 14:34:44

VB.NET Tree

2009-10-14 10:19:57

VB.NET Doma

2009-10-14 16:04:43

VB.NET Noti

2010-01-13 10:53:24

VB.NET控件

2009-10-23 13:14:38

2009-10-20 10:16:24

VB.NET COMB

2009-10-16 14:31:48

VB.NET Noti

2009-10-23 13:10:14

VB.NET List

2010-01-19 10:12:39

VB.NET Butt

2009-10-14 11:27:20

VB.NET Grou

2009-10-12 15:02:51

VB.NET动态控件

2009-10-10 16:44:52

VB.NET开发控件

2009-10-14 11:15:06

VB.NET Grou

2009-10-16 14:07:18

VB.NET使用Mon

2009-10-29 10:45:01

VB.NET设置控件
点赞
收藏

51CTO技术栈公众号