VB.Net树视图（TreeView）

树视图(TreeView)控件用于显示与Windows资源管理器左窗格中文件和文件夹的显示方式类似的项目分层表示。每个节点可能包含一个或多个子节点。参见如下控件视图 -

从工具箱中点击一个TreeView控件，并把它放在窗体上。

TreeView控件的属性

以下是TreeView控件的一些常用属性：

TreeView控件的方法

以下是TreeView控件的一些常用方法：

TreeView控件的事件

以下是TreeView控件的一些常用事件：

TreeNode类

TreeNode类表示TreeView的一个节点。 TreeView控件中的每个节点都是TreeNode类的一个对象。为了能够使用TreeView控件，需要查看TreeNode类的一些常用属性和方法。

TreeNode类的属性

以下是TreeNode类的一些常用属性：

TreeNode类的方法

以下是TreeNode类的一些常用方法：

示例

在这个例子中，在运行时创建一个树形视图。双击窗体并将下面的代码放在打开的窗口中。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' create a new TreeView '
        ' Dim TreeView1 As TreeView '
        ' TreeView1 = New TreeView() '
        TreeView1.Location = New Point(10, 10)
        TreeView1.Size = New Size(180, 250)
        Me.Controls.Add(TreeView1)
        TreeView1.Nodes.Clear()
        'Creating the root node '
        Dim root = New TreeNode("Application")
        TreeView1.Nodes.Add(root)
        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 1"))
        'Creating child nodes under the first child
        For loopindex As Integer = 1 To 4
            TreeView1.Nodes(0).Nodes(0).Nodes.Add(New _
                TreeNode("Sub Project" & Str(loopindex)))
        Next loopindex
        ' creating child nodes under the root '
        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 6"))
        'creating child nodes under the created child node
        For loopindex As Integer = 1 To 3
            TreeView1.Nodes(0).Nodes(1).Nodes.Add(New _
                TreeNode("Project File" & Str(loopindex)))
        Next loopindex
        ' Set the caption bar text of the form.  '
        Me.Text = "xuhuhu.com"
    End Sub

    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect

    End Sub
End Class

当上面的代码执行并使用Microsoft Visual Studio工具栏上的“开始”按钮运行时，它将显示以下窗口：

可以展开节点来查看每个子节点，如下图所示：