vb

vb树状显示控件


TreeView1 树状显示控件

在工具箱中右键，部件
把“MicroSoft Windows Common Controls 6.0”选中，就有了

TreeView1.Checkboxes=True  '可以打钩
TreeView1.Checkboxes=False '不可以打钩
TreeView1.Nodes(1).Checked = True  '打钩
TreeView1.Nodes(1).Checked = False '去钩
TreeView1.Nodes.Clear '清空 TreeView1节点

为树状浏览器控件添加节点和子节点   

　　用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已
存在的节点所联系起来的。通常使用ADD方法，其语法如下：   

　　　Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])   

　　各个参数的意义如下：

　　　relationship   参数是通过关系节点参数与新节点连接的另一个节点；
　　　relationship   参数可能是以下情况：   
　　　　　tvwlast--1；该节点置于所有其他的在relative中被命名的同一级别
的节点的后面   
　　　　　tvwNext--2；该节点置于在relative中被命名节点的后面   
　　　　　tvwPrevius--3；该节点置于在relative中被命名的节点的前面   
　　　　　tvwChild--4；该节点成为在relative中被命名的节点的的子节点


'列
Private Sub Form_Load()
TreeView1.LineStyle = tvwRootLines ' Linestyle 1

Set nodX = TreeView1.Nodes.Add(, , "jda", "节点a")                   '节点
Set nodX = TreeView1.Nodes.Add("jda", tvwChild, "child1", "子节点1") '子节点
Set nodX = TreeView1.Nodes.Add("jda", tvwChild, "child2", "子节点2") '子节点

Set nodX = TreeView1.Nodes.Add(, , "jdb", "节点b")
Set nodX = TreeView1.Nodes.Add("jdb", tvwChild, "child3", "子节点1") '子节点
Set nodX = TreeView1.Nodes.Add("jdb", tvwChild, "child4", "子节点2") '子节点

TreeView1.Checkboxes = True '可以打钩
TreeView1.Nodes(1).Checked = True '打钩
End Sub
=======================================


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/