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

fuxi922721 2009-10-10 02:36:05

如标题

...全文

127 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

getemail 2009-10-10

打赏
举报

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

fuxi922721 2009-10-10

打赏
举报

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

Flyingdragon168 2009-10-10

打赏
举报

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

倒大霉的上帝 2009-10-10

打赏
举报

TreeView1.Nodes(i).Checked = True

fuxi922721 2009-10-10

打赏
举报

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
Next

End Sub
这是初始化的代码

fuxi922721 2009-10-10