ACCESS的treeview控件展开和收起所有节点的代码

水东柳 • • Access

 

  1. Private Sub Command1_Click()
  2. Dim I As Long
  3. For I = 1 To TreeView.Nodes.Count
  4. TreeView.Nodes(I).Expanded = True '展开所有节点
  5. Next I
  6. End Sub
  8. Private Sub Command2_Click()
  10. Dim I As Long
  11. For I = 1 To TreeView.Nodes.Count
  12. TreeView.Nodes(I).Expanded = False '收起所有节点
  13. Next I
  14. End Sub

版权声明：
作者：水东柳
链接：https://shuidl.com/1562.html
来源：水东柳博客
文章版权归作者所有，未经允许请勿转载。

THE END
分享
二维码
打赏
< <上一篇
下一篇>>