锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net树控件的使用的信息( 二 )

IT技术Cfg


Private Sub InitializeTreeView()
treeView1.BeginUpdate()
treeView1.Nodes.Add("Parent")
treeView1.Nodes(0).Nodes.Add("Child 1")
treeView1.Nodes(0).Nodes.Add("Child 2")
treeView1.Nodes(0).Nodes(1).Nodes.Add("Grandchild")
treeView1.Nodes(0).Nodes(1).Nodes(0).Nodes.Add("Great Grandchild")
treeView1.EndUpdate()
End Sub
From MSDN
vb中的treeview控件如何使用使用控件需要知道vb.net树控件的使用，要想获得树状结构的每个层次中的子文件夹vb.net树控件的使用，必须使用递归过程来完成vb.net树控件的使用，下面所示代码所执行的工作是vb.net树控件的使用：
先把一个已经路径的文件夹添加到树状结构中vb.net树控件的使用，然后再遍历它的子文件夹：
'添加文件夹
Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode)
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
End Sub
然后在按钮的Click事件中添加代码，用于添加树状结构的顶层以及调用遍历子文件的递归过程，详细代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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
End Sub
【关于vb.net树控件的使用的信息】关于vb.net树控件的使用和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：.net上传文件接口，net 上传文件代码

下一篇：jqueryhashchange使用，jquery的change方法