如何用treeview??(初学者，在线等）

Question

刚学VB，不会用treeview.只会拖到窗口，但是不会写代码。
请各位帮个忙。
举例：
    父结点“商品信息”，一子结点“食品”，二子结点“日用品”。
    食品下分“主食”“小吃”。日用品下分“室内”“室外”
谢谢将所有代码告诉我。
感激不尽！！
谢谢。。

Answer 1

一个小例子：
'处理和显示treeview1节点(初始化)
Private Sub TreeView_Show()
    
    
    Dim vnode As Node
    Set vnode = Me.TreeView1.Nodes.Add(, , "maindir", LoadResString(1090), 1)
    Set vnode = Me.TreeView1.Nodes.Add("maindir", tvwChild, "mydir", LoadResString(1091), 2)
    Set vnode = Me.TreeView1.Nodes.Add("mydir", tvwChild, "refered", LoadResString(1092), 3)
    Set vnode = Me.TreeView1.Nodes.Add("refered", tvwLast, "unrefered", LoadResString(1093), 4)
    Set vnode = Me.TreeView1.Nodes.Add("mydir", tvwLast, "refering", LoadResString(1094), 5)
    Set vnode = Me.TreeView1.Nodes.Add("refering", tvwLast, "transmit", LoadResString(1095), 6)
    Set vnode = Me.TreeView1.Nodes.Add("transmit", tvwLast, "archives", LoadResString(1096), 7)
    Set vnode = Me.TreeView1.Nodes.Add("archives", tvwLast, "deletes", LoadResString(1097), 8)
    Set vnode = Me.TreeView1.Nodes.Add("maindir", tvwLast, "mainruler", LoadResString(1098), 9)
    Set vnode = Me.TreeView1.Nodes.Add("mainruler", tvwChild, "referruler", LoadResString(1099), 10)
    Set vnode = Me.TreeView1.Nodes.Add("referruler", tvwLast, "transruler", LoadResString(1100), 11)
        TreeView1.Nodes.Item("maindir").Expanded = True
    TreeView1.Nodes.Item("mydir").Expanded = True
    TreeView1.Nodes.Item("mainruler").Expanded = True
    TreeView1.Nodes.Item("refered").Selected = TrueEnd Sub