如何让treeview始终保持展开的状态???

如题!!
谢谢!

解决方案 »

  1.   

    Private Sub Form_Load()
    For i = 65 To 90
    TreeView1.Nodes.Add , , Chr(i), Chr(i)
    TreeView1.Nodes(i - 64).Expanded = True
    Next
    For i = 65 To 90
    For j = 1 To 10
    TreeView1.Nodes.Add Chr(i), 4, Chr(i) & j, Chr(i) & j
    Next
    Next
    End Sub
      

  2.   

    在 Collapse 事件中重新展开节点。
      

  3.   

    展开所有接点
    nodx.EnsureVisible
      

  4.   

    我在学习Treeview写过一个例子你要可以给你!
      

  5.   

    在 Collapse 事件中重新展开节点
    Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
        Node.Child.EnsureVisible
    End Sub
      

  6.   

    如果是显示每一层的话用。
    TreeView1.nodes(1).Expanded=true
    就可以了。
    如果想显示特定的一个节点下
    用TreeView1.nodes("该节点的健值").Expanded=true就可以了