請教treeeview控件的大概用法

[suduan]

請教treeeview控件的大概用法
如：怎樣添加節點，和相應點機事件

[Tyro]

添加根结点：
TreeView1.Nodes.Add , , "node1", "总公司"
添加node1的子节点：
TreeView1.Nodes.Add "node1", tvwChild, "node2", "行政部"

点击处理treeview1的click事件即可，可以用下面的方法得到当前的选择项
Private Sub TreeView1_Click()
Dim nod As Node
Set nod = TreeView1.SelectedItem
MsgBox nod.Text
End Sub

[Limu]

TreeView主要用于表示具有层次的结构，通过节点所在的位置可一目了然的看到各节点数据间的依赖关系。如部门结构，会计科目结构，地理结构等。
添加节点用Add方法，用法如下：
tv.Add(ParentKey,Relation,Key,Text,Image)
其中ParentKey为与本节点相关的节点的关键字，Relation为两个节点的关系，是些枚举值，可以查看帮助。Key为本节点的关键字，Text为本节点显示的文字串,Image为可选参数，只在tv连上了某个ImageList时才有用，它指示所用的在ImageList中的图形编号。
一些例子：
tv.Add ,,"Node1","总公司"
tv.Add "Node1",tvwChild,"Node2","行政部"
前面两个参数不填表示添加顶层节点。