控件:TreeView
代码:
- PrivateSubTreeView1_AfterSelect(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.TreeViewEventArgs)HandlesTreeView1.AfterSelect
- MsgBox(TreeView1.SelectedNode.Text)'用户选中某一项时弹出当前选择项
- EndSub
- PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
- DimaaAsTreeNode'树之根,一级节点
- DimsttAsTreeNode
- DimstrAsTreeNode
- Dimi,sAsInt32
- aa=TreeView1.Nodes.Add("0","廊桥酒楼总店")'添加一级节点
- aa.ForeColor=Color.Blue'定义为蓝色
- Fori=1To5
- stt=NewTreeNode()
- stt.Name="teta"&i
- stt.Text="酒楼分店"&i
- stt.ForeColor=Color.Red
- aa.Nodes.AddRange(NewTreeNode(){stt})'添加二级节点
- Fors=1To5
- str=NewTreeNode()
- str.Name="tetar"&s
- str.Text="部门"&s
- str.ForeColor=Color.Red
- stt.Nodes.AddRange(NewTreeNode(){str})'添加三级节点
- Next
- Next
- EndSub