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

 

  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
  7. Private Sub Command2_Click()
  8. Dim I As Long
  9. For I = 1 To TreeView.Nodes.Count
  10. TreeView.Nodes(I).Expanded = False '收起所有节点
  11. Next I
  12. End Sub

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

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