vb.net使用TreeView 控件显示文件夹列表

【qqread原创】在前文我们提到过,TreeView 控件最典型的使用就是Windows资源管理中显示文件夹列表的左边栏,现在我们就模仿它来做一个按树状结构显示指定盘符中所有文件夹的小程序。

一、准备知识:

1、了解 TreeView 控件的基本使用,掌握了如何添加树状结构的数据到TreeView 控件中,相关文章参看这里:vb.net入门——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 组件,如下图所示:

vb.net使用TreeView 控件显示文件夹列表(图一)
图一:窗体布局

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

vb.net使用TreeView 控件显示文件夹列表(图二)
图二:需要用到的图标

http://www.qqread.com/ArtImage/20080119/qqread_icon_0118.rar(图标下载地址)

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

二、编写代码

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

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

'添加文件夹

Public Sub AddDirectory(ByVal strFatherPath As StringByVal 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

treeview1.Nodes.Clear()。node.ImageIndex = 0。node.Text = "本地磁盘 C:"。node.SelectedImageIndex = -1。TreeView1.Nodes.Add(node)。Dim i As Integer。'获取C:盘根目录下的文件夹。

 

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.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

[art_myurl]

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

vb.net使用TreeView 控件显示文件夹列表(图三)
图三:显示C盘的效果

相关文章:VB.NET 入门教程

它包括了 Visual Basic .NET 程序的基本组成部分:读/写控制台和文件、创建函数和使用基本数组。 这些入门指南并不打算涵盖该编程语言的所有方面。它们只是您探索这种语言的一个起点。我们鼓励您按照本教程的说明执行,因为它包括了 QuickSort 应用程序的各个不同部分。

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值