如何点击treeview中的一个节点，让其它所有节点收缩。

Question

并且让点中的节点显示？

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim i As Integer
    Label1 = Node.Index
    For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = False
    Next i
    TreeView1.Nodes(TreeView1.SelectedItem.Index).Expanded = True
End Sub这样OK？

Answer 2

楼主，我不清楚你的目的是什么，但点击一个结点展开该结点下的内容是treeview本身就有的，而且也会自动将其他结点收缩，但有一点要清楚一下，你是怎么去点的，是点击结点还是展开结点，因为这两个操作所激活的事件是不一样的，一个是nodeclick，另一个是Collapse事件与Expandg事件。我装的treeview 在点击结点时即nodeclick时，是自动展开其子结点，且其它结点也是自动收缩的。没有代码进行处理。