龙空技术网

展开、收起treeview的所有节点

Access软件网 228

前言:

现在同学们对“如何遍历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软件网】

标签: #如何遍历treeview中所有节点 #treeview遍历所有节点