Dim node1,node2,node3,node4 as Node
set Node1=TreeView1.Nodes.Add
TreeView1.Nodes(1).text="node1"
TreeView1.Nodes(1).key="node1"
Set node2=treeview.nodes.add("node1",tvwChild,"node2")
TreeView1.Nodes(2).text="node2"
TreeView1.Nodes(2).key="node2"
依次插入节点即可。
2、为节点插入图象
treeview1.node(3).image="leaf"
注意我们一般从imagelist中指定图象
3、处理节点的点击,怎样才能知道树状浏览器的哪一个节点被点击了呢?可以用NodeClick 事件:
public sub treeview1_nodeclick(byval node as comctllib.node)
text1.text="you click"&node.text
end sub