TreeView显示CheckBox问题
我想在Form加载时使Treeview的各个项目前的CheckBox都挑上对钩,代码如下:
Private Sub Form_Load()
Dim nod As Node
With tvwDrvList
.Checkboxes = True
Set nod = .Nodes.Add(, , , "Letter")
nod.Checked = True
Set nod = .Nodes.Add(1, tvwChild, , "A")
nod.Checked = True
Set nod = .Nodes.Add(1, tvwChild, , "B")
nod.Checked = True
Set nod = .Nodes.Add(1, tvwChild, , "C")
nod.Checked = True
Set nod = .Nodes.Add(1, tvwChild, , "D")
nod.Checked = True
Set nod = .Nodes.Add(1, tvwChild, , "E")
nod.Checked = True
nod.EnsureVisible
End With
End Sub
可是运行后无效,但将这段代码加到Form_Click中却可以实现,这是为何?我该怎么实现?