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