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

[shaidanR]

并且让点中的节点显示？

[davidlv]

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

[seekafei]

用treeview1.nodes(i).expended=false

[lwm1977]

折腾一下expended

[shaidanR]

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？