前言:
现在同学们对“如何遍历treeview中所有节点”可能比较重视,我们都需要了解一些“如何遍历treeview中所有节点”的相关知识。那么小编同时在网络上搜集了一些关于“如何遍历treeview中所有节点””的相关文章,希望咱们能喜欢,小伙伴们一起来了解一下吧!代 码:
Private Sub Command2_Click()
Dim I As Long
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = True '展开所有节点
Next I
End Sub
Private Sub Command3_Click()
Dim I As Long
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = False '收起所有节点
Next I
End Sub
效 果:
展开,收起treeview的所有节点【Access软件网】
版权声明:
本站文章均来自互联网搜集,如有侵犯您的权益,请联系我们删除,谢谢。