东流西上
故在柳溪,水东有柳

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

赞(0) 打赏
转载请注明出处:水东柳博客 » ACCESS的treeview控件展开和收起所有节点的代码
分享到: 更多 (0)

评论 抢沙发

2 + 4 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏