如何选中treeview的父结点,所有的子结点显示在listview

Question

如何选中treeview的父结点,所有的子结点显示在listview

Answer 1

Private Sub Form_Load()
Treeview1.Nodes.Add , , "Root", 1
Treeview1.Nodes.Add "Root", 4, , 2
Treeview1.Nodes.Add "Root", 4, , 3
Treeview1.Nodes.Add "Root", 4, , 4
Treeview1.Nodes.Add "Root", 4, , 5
Treeview1.Nodes.Add "Root", 4, , 6
Treeview1.Nodes.Add "Root", 4, , 7
Treeview1.Nodes.Add "Root", 4, , 8
Treeview1.Nodes.Add "Root", 4, , 9
End SubPrivate Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
Listview1.ListItems.Clear
Dim I As Long
For I = Node.Index + 1 To Treeview1.Nodes.Count
    If Treeview1.Nodes(I).Parent = Node Then Listview1.ListItems.Add , , Treeview1.Nodes(I).Text
Next I
End Sub