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

765次阅读
没有评论

共计 258 个字符,预计需要花费 1 分钟才能阅读完成。

 

  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

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

正文完
 0
水东柳
版权声明:本站原创文章,由 水东柳 于2019-02-23发表,共计258字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)