如何增加treeview的子结点??????

Question

Private Sub Form_Load()   TreeView1.LineStyle = tvwRootLines 
   Dim nodX As Node   
   Set nodX = TreeView1.Nodes.Add(, , "r", "a")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "ab")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child2", "ac")
End Sub现在出来的结果是
   a
     ab
     ac
 
我想再加一级
 如 
   a
    ab
        ab1
        ab2
    ac
那代码如何写呢???

Answer 1

Private Sub Form_Load()   TreeView1.LineStyle = tvwRootLines 
   Dim nodX As Node   
   Set nodX = TreeView1.Nodes.Add(, , "r", "a")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "ab")   Set nodX = TreeView1.Nodes.Add("child1", tvwChild, "ab1", "ab1")
   Set nodX = TreeView1.Nodes.Add("child1", tvwChild, "ab1", "ab2")   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child2", "ac")
End Sub

Answer 2

写错了，是
   Set nodX = TreeView1.Nodes.Add("child1", tvwChild, "ab1", "ab1")
   Set nodX = TreeView1.Nodes.Add("child1", tvwChild, "ab2", "ab2")

Answer 3

Add方法第一个参数是节点的key，
第二个参数是要添加的子节点与节点的的关系，
第三个参数是要添加的子节点的key，
第四个参数是要添加的子节点显示的文本Key可以作为一个节点的唯一标识，必须是与其它节点不同
可以用TreeView1.Nodes(某节点的Key)来引用这个节点