关于TREEVIEW的CHECKED！！

Question

先设置
TreeView1.Checkboxes = True

Answer 1

加一个Button,加入一下代码Private Sub Command1_Click()
For i = 1 To 4
TreeView1.Nodes("r" & i).Checked = True
Next
End Sub可以，估计可能和TreeView得可见性Visible有关系。因为Form_Load的时候，TreeView没有可见

Answer 2

Private Sub Command1_Click()
For i = 1 To 4
TreeView1.Nodes.Add , , "r" & i, "asdfsadf", 1
TreeView1.Nodes("r" & i).Checked = True
Next
End Sub这个都到ButtonClick重处理，运行，点Button一切OK如果非要自动添加完成，可以先显示窗体，加一个Timer作延时一样可以实现

Answer 3

to snowrose,这样设置好像还是不行，没有及时回信，263破兰，老是服务器繁忙，谢谢你的来信。我当时想要那个MC Snap什么技术的代码，就是你楼下那个，呵呵

Answer 4

你好
如果是说在FORMLOAD的时候和TREEVIEW的VISIBLE有关，为什么我去掉TREEVIEW中图象列表的IMAGELIST就可以了呢？

Answer 5

这是VB的Bug，解决方法：
Private Declare Function GetWindowLong Lib "user32" Alias _
       "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias _
       "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
       ByVal dwNewLong As Long) As Long
      
Private Sub Form_Load()
    Const TVS_CHECKBOXES = &H100
    Const GWL_STYLE = (-16)    Dim CurStyle As Long
    Dim Result As Long    
    Me.Show
        TreeView1.LabelEdit = tvwManual
    TreeView1.Style = tvwTreelinesText   ' Style 4.
    TreeView1.BorderStyle = vbFixedSingle
    CurStyle = GetWindowLong(TreeView1.hwnd, GWL_STYLE)
    Result = SetWindowLong(TreeView1.hwnd, GWL_STYLE, _
            CurStyle Or TVS_CHECKBOXES)
    For i = 1 To 4
        Set nodX = TreeView1.Nodes.Add(, , "r" & i, "asdfsadf")
        nodX.EnsureVisible
        nodX.Checked = True
    Next
    nodX.EnsureVisible
End Sub
详情参见：http://support.microsoft.com/support/kb/articles/Q192/1/88.ASP

Answer 6

TechnoFantasy(www.applevb.com）你好
将
TreeView1.Style = tvwTreelinesText  ' Style 4
改为
TreeView1.Style = 7 即包含图象的方式依旧不行
不过还是谢谢

Answer 7

阿，我没有注意到这个问题，估计是VB的Bug，你到msdn.microsoft.com 上以TreeView1.Checked做关键字找一下，应该会有答案的。