vb.net使用TreeView 控件显示文件夹列表
2014-11-26 15:18
330 查看
【qqread原创】在前文我们提到过,TreeView 控件最典型的使用就是Windows资源管理中显示文件夹列表的左边栏,现在我们就模仿它来做一个按树状结构显示指定盘符中所有文件夹的小程序。
一、准备知识:
1、了解 [b]TreeView[/b] 控件的基本使用,掌握了如何添加树状结构的数据到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 组件,如下图所示:
图一:窗体布局
在ImageList 组件中按顺序添加如下三个图标(单击这里下载图标文件),图标大小设置为16*16:
图二:需要用到的图标
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 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
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]
代码添加完毕后,运行,效果如下图所示:
图三:显示C盘的效果
相关文章:VB.NET 入门教程
它包括了 Visual Basic .NET 程序的基本组成部分:读/写控制台和文件、创建函数和使用基本数组。 这些入门指南并不打算涵盖该编程语言的所有方面。它们只是您探索这种语言的一个起点。我们鼓励您按照本教程的说明执行,因为它包括了 QuickSort 应用程序的各个不同部分。
一、准备知识:
1、了解 [b]TreeView[/b] 控件的基本使用,掌握了如何添加树状结构的数据到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 组件,如下图所示:
图一:窗体布局
在ImageList 组件中按顺序添加如下三个图标(单击这里下载图标文件),图标大小设置为16*16:
图二:需要用到的图标
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 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
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]
代码添加完毕后,运行,效果如下图所示:
图三:显示C盘的效果
相关文章:VB.NET 入门教程
它包括了 Visual Basic .NET 程序的基本组成部分:读/写控制台和文件、创建函数和使用基本数组。 这些入门指南并不打算涵盖该编程语言的所有方面。它们只是您探索这种语言的一个起点。我们鼓励您按照本教程的说明执行,因为它包括了 QuickSort 应用程序的各个不同部分。
相关文章推荐
- 。net控件学习之使用TreeView显示文件夹
- 使用树形控件显示VB.NET层级数据
- 使用树形控件显示VB.NET层级数据
- VB.Net自己写的一个控件:ComboBox下拉列表中显示多列数据(可以绑定数据表)
- [ASP.NET]Treeview 控件显示服务端目录文件夹及文件
- 使用asp.net Ajax控件PopupControlExtender与GridView联合显示详情列表
- 使用repeater控件显示列表替代treeview
- 使用 asp.net 2.0 自带的TreeView控件显示内联表数据(树状数据)
- 使用asp.net Ajax控件PopupControlExtender与GridView联合显示详情列表
- 使用vb.net获取相应文件夹下相应文件的个数并显示
- 在 ASP.NET 页面中使用 TreeView 控件
- 使用ASP.NET Atlas XSLTView控件用XSLT修饰并显示XML数据
- 使用ASP.NET Atlas ItemView控件显示集合中的单个数据
- 使用TreeView和listView控件查看本机磁盘文件夹及文件(WinForm)
- 在 ASP.NET 页面中使用 TreeView 控件
- 使用ASP.NET Atlas ItemView控件显示集合中的单个数据
- 使用嵌套 Repeater 控件和 Visual C# .Net 显示分层数据
- 在 ASP.NET 页面中使用 TreeView 控件
- 使用ASP.NET Atlas编写显示真实进度的ProgressBar(进度条)控件
- 在 ASP.NET 页面中使用 TreeView 控件