ACCESS的treeview控件展开和收起所有节点的代码
- Private Sub Command1_Click()
- Dim I As Long
- For I = 1 To TreeView.Nodes.Count
- TreeView.Nodes(I).Expanded = True '展开所有节点
- Next I
- End Sub
- Private Sub Command2_Click()
- Dim I As Long
- For I = 1 To TreeView.Nodes.Count
- TreeView.Nodes(I).Expanded = False '收起所有节点
- Next I
- End Sub
共有 0 条评论