treeView checkboxes 怎么在窗体初始化时默认为全部选中？？？

Question

如标题

Answer 1

    Dim i As Long
    For i = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes.Item(i).Checked = True
    Next

Answer 2

    For i = 0 To frmMain.Tre1.Nodes.Count - 1
        frmMain.TreeView1.Nodes.Item(i + 1).Checked = True
    Next
'效果是一样的

Answer 3

Private Sub Form_Load()
        rs.Open "Select * From 登录", cnn, adOpenDynamic, adLockOptimistic
        rs.MoveFirst
        Do While rs.EOF <> True
           Combo1.AddItem (Trim(rs.Fields("姓名")))
           rs.MoveNext
        Loop
        Combo1.ListIndex = 0
        
        For i = 1 To 7
            str1 = system.m(i).Caption
            str2 = "X" & i
            Set nodX = TreeView1.Nodes.Add(, , str2, str1, 1)
        Next i
        For i = 0 To system.m1.Count - 1
                Set nodX = TreeView1.Nodes.Add("X1", tvwChild, , system.m1(i).Caption, 2)
        Next i
        For i = 0 To system.m2.Count - 1
                Set nodX = TreeView1.Nodes.Add("X2", tvwChild, , system.m2(i).Caption, 2)
        Next i
        For i = 0 To system.m3.Count - 1
                Set nodX = TreeView1.Nodes.Add("X3", tvwChild, , system.m3(i).Caption, 2)
        Next i
        For i = 0 To system.m4.Count - 1
                Set nodX = TreeView1.Nodes.Add("X4", tvwChild, , system.m4(i).Caption, 2)
        Next i
        For i = 0 To system.m5.Count - 1
                Set nodX = TreeView1.Nodes.Add("X5", tvwChild, , system.m5(i).Caption, 2)
        Next i
        For i = 0 To system.m6.Count - 1
                Set nodX = TreeView1.Nodes.Add("X6", tvwChild, , system.m6(i).Caption, 2)
        Next i
        For i = 0 To system.m7.Count - 1
                Set nodX = TreeView1.Nodes.Add("X7", tvwChild, , system.m7(i).Caption, 2)
        Next i
            For i = 1 To TreeView1.Nodes.Count
        TreeView1.Nodes.item(i).Checked = True
    NextEnd Sub
这是初始化的代码

Answer 4

TreeView1.Nodes(i).Checked = True 

Answer 5

Private Sub Form_Load()
    Me.TreeView1.Nodes.Add , , , "A"
    Me.TreeView1.Nodes.Add , , , "A"
    Me.TreeView1.Nodes.Add , , , "A"
    Me.TreeView1.Nodes.Add , , , "A"
    Me.TreeView1.Nodes.Add , , , "A"
    Me.TreeView1.Nodes.Add , , , "A"
    For i = 1 To Me.TreeView1.Nodes.Count
        Me.TreeView1.Nodes(i).Checked = True
    Next i
End Sub

Answer 6

     For i = 1 To Me.TreeView1.Nodes.Count
        Me.TreeView1.Nodes(i).Checked = True
    Next i
    也没选中 ？？

Answer 7

          TreeView1.Checkboxes = True
          For i = 1 To TreeView1.Nodes.Count
          TreeView1.Nodes.Item(i).Checked = True
          Next i