TreeView三层节点

控件:TreeView

代码:

1. PrivateSubTreeView1_AfterSelect(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.TreeViewEventArgs)HandlesTreeView1.AfterSelect
2. MsgBox(TreeView1.SelectedNode.Text)'用户选中某一项时弹出当前选择项
3. EndSub
5. PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
6. DimaaAsTreeNode'树之根,一级节点
7. DimsttAsTreeNode
8. DimstrAsTreeNode
9. Dimi,sAsInt32
10. aa=TreeView1.Nodes.Add("0","廊桥酒楼总店")'添加一级节点
11. aa.ForeColor=Color.Blue'定义为蓝色
13. Fori=1To5
14. stt=NewTreeNode()
15. stt.Name="teta"&i
16. stt.Text="酒楼分店"&i
17. stt.ForeColor=Color.Red
18. aa.Nodes.AddRange(NewTreeNode(){stt})'添加二级节点
20. Fors=1To5
21. str=NewTreeNode()
22. str.Name="tetar"&s
23. str.Text="部门"&s
24. str.ForeColor=Color.Red
25. stt.Nodes.AddRange(NewTreeNode(){str})'添加三级节点
26. Next
28. Next
29. EndSub