关于treeview的展开?

Question

比如说我一个窗体上有一个根节点,四个子节点.
怎么样使窗体load时,treeview是把字节点都展开的?(默认的情况下只显示一个根节点)

Answer 1

Expanded 属性 看Msdnbaba吧

Answer 2

Private Sub Command1_Click()
    '改变根节点展开状态
    Me.TreeView1.Nodes(1).Expanded = Not Me.TreeView1.Nodes(1).Expanded
End SubPrivate Sub Form_Load()
    Dim mnode As Node, i As Long
    Set mnode = Me.TreeView1.Nodes.Add(, , , "root")
    mnode.Expanded = True
    For i = 1 To 4
        Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub " + CStr(i)
    NextEnd Sub

Answer 3

如果Expanded = True不能實現的話﹐建議你模擬在最上層按一個 * 號﹐

Answer 4

最简单的方法：
Private Sub Form_Load()
    Dim i As Long
    For i = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes(i).Expanded = True
    NextEnd Sub

Answer 5

关键语句：TreeView1.Nodes(i).Expanded = True