共计 258 个字符，预计需要花费 1 分钟才能阅读完成。
- Private Sub Command1_Click()
- Dim I As Long
- For I = 1 To TreeView.Nodes.Count
- TreeView.Nodes(I).Expanded = True ' 展开所有节点
- Next I
- End Sub
- Private Sub Command2_Click()
- Dim I As Long
- For I = 1 To TreeView.Nodes.Count
- TreeView.Nodes(I).Expanded = False ' 收起所有节点
- Next I
- End Sub
正文完
