TreeView三层节点

 控件:TreeView

代码:

1.  Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
2.         MsgBox(TreeView1.SelectedNode.Text)    '用户选中某一项时弹出当前选择项
3.     End Sub
5.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
6.         Dim aa As TreeNode    '树之根,一级节点
7.         Dim stt As TreeNode
8.         Dim str As TreeNode
9.         Dim i, s As Int32
10.         aa = TreeView1.Nodes.Add("0", "廊桥酒楼总店")   '添加一级节点
11.         aa.ForeColor = Color.Blue                       '定义为蓝色
13.         For i = 1 To 5
14.             stt = New TreeNode()
15.             stt.Name = "teta" & i
16.             stt.Text = "酒楼分店" & i
17.             stt.ForeColor = Color.Red
18.             aa.Nodes.AddRange(New TreeNode() {stt})    '添加二级节点
20.             For s = 1 To 5
21.                 str = New TreeNode()
22.                 str.Name = "tetar" & s
23.                 str.Text = "部门" & s
24.                 str.ForeColor = Color.Red
25.                 stt.Nodes.AddRange(New TreeNode() {str})  ' 添加三级节点
26.             Next
28.         Next
29.     End Sub