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