如何将treeview控件的条目全部展开，和全部收起？

[howto123]

如何将treeview控件的条目全部展开，和全部收起？

[tztz520]

Private Sub Command1_Click()'全部开
Dim i As Long

For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next i
End Sub

Private Sub Command2_Click()'全部关
Dim i As Long

For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = False
Next i
End Sub

[daisy8675]

Expanded属性，如果指定某个节点的话，用它的关键字就OK

参考下MSDN，会学到很多东西的

[lxcc]

Private Sub Command1_Click()
Dim nodex As Node
For Each nodex In TreeView1.Nodes
nodex.Expanded = True
Next
End Sub

Private Sub Command2_Click()
Dim nodex As Node
For Each nodex In TreeView1.Nodes
nodex.Expanded = False
Next
End Sub