Visual Basic 2008 中 TreeView的使用方法

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '添加根节点
        TreeView1.Nodes.Add("公卫科")
        TreeView1.Nodes.Add("收费室")
        TreeView1.Nodes.Add("化验室")
        TreeView1.Nodes.Add("骨伤科")

        '添加子节点
        TreeView1.Nodes(0).Nodes.Add("姚明")
        TreeView1.Nodes(1).Nodes.Add("董迎春")
        TreeView1.Nodes(2).Nodes.Add("徐建强")
        TreeView1.Nodes(3).Nodes.Add("雷笑旺")

        '添加子节点下的子节点
        TreeView1.Nodes(0).Nodes(0).Nodes.Add("1")
        TreeView1.Nodes(1).Nodes(0).Nodes.Add("2")
        TreeView1.Nodes(2).Nodes(0).Nodes.Add("3")
        TreeView1.Nodes(3).Nodes(0).Nodes.Add("4")

        '' 展开第二个根节点
        TreeView1.Nodes(1).Expand()

        '展开第二个根节点的第一个节点
        TreeView1.Nodes(1).Nodes(0).Expand()
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        '当前选定的值

        TextBox1.Text = TreeView1.SelectedNode.Text
        '获得当前节点的父节点
        Try
            TextBox2.Text = TreeView1.SelectedNode.Parent.Text

        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & "已是根节点")
        End Try

    End Sub
End Class