treeview把节点全部展开和关上的方法是什么？

Question

Dim nodX As Node
nodX.EnsureVisible

Answer 1

用他的expanded可以设置
treeview.expanded=true 展开
treeview.expanded=false 关上
这会触发 expand 事件。

Answer 2

'收起所有节点
Private Sub poptreepick_Click()
Dim i
  For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = False '收起所有节点
  Next i
End Sub
'展开所有节点
.expanded=true

Answer 3

Dim I as Integer
   For I = 1 to TreeView1.Nodes.Count
      '展开全部节点。
      TreeView1.Nodes(i).Expanded = True
   Next I

Answer 4

treeview1.nodes(1).expanded=false

Answer 5

Dim I as Integer
   For I = 1 to TreeView1.Nodes.Count
      '展开全部节点。
      TreeView1.Nodes(i).Expanded = True
   Next I

Answer 6

For i = 1 To tvOperPower.Nodes.Count
                    tvOperPower.Nodes.Item(i).Expanded = True
                Next