請教treeeview控件的大概用法

Question

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","行政部"
前面两个参数不填表示添加顶层节点。

Answer 1

添加根结点：
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