请教关于treeview的checked属性的问题？

Question

可能是bug，建议使用一个定时器，在定时事件里改变checked属性，然后取消定时!

Answer 1

完全可以的，我的代码如下Option ExplicitPrivate Sub Command1_Click()
Dim i
Dim y
    TreeView1.Nodes.Add , , "a" & i & y, i & y & "ssssssssss"
For i = 1 To 10
  For y = 1 To 5
    TreeView1.Nodes.Add "a", tvwChild, "a" & i & y, i & y
  Next y
Next i
End SubPrivate Sub Command2_Click()
TreeView1.Nodes.Item("a11").Checked = True
TreeView1.Nodes.Item("a12").Checked = True
TreeView1.Nodes.Item("a13").Checked = False
TreeView1.Nodes.Item("a14").Checked = True
TreeView1.Nodes.Item("a15").Checked = FalseEnd Sub
和我联系mail:[email protected]
  9181729

Answer 2

sorry  刚才没有看清楚！！我写了一下！
还是可以，不过，我改了一个地方
    你看看怎么修改吧！
Option ExplicitPrivate Sub Form_Load()
Dim i
Dim y
    TreeView1.Nodes.Add , , "a" & i & y, i & y & "ssssssssss", 3, 4
For i = 1 To 10
  For y = 1 To 5
    TreeView1.Nodes.Add "a", tvwChild, "a" & i & y, i & y, 1, 2
  Next y
Next iEnd SubPrivate Sub Form_Resize()
TreeView1.Nodes.Item("a11").Checked = True
TreeView1.Nodes.Item("a12").Checked = True
TreeView1.Nodes.Item("a13").Checked = False
TreeView1.Nodes.Item("a14").Checked = True
TreeView1.Nodes.Item("a15").Checked = FalseEnd Sub

Answer 3

 resize里面不好，会动态改变   这样就是了
Option ExplicitPrivate Sub Form_Activate()
TreeView1.Nodes.Item("a11").Checked = True
TreeView1.Nodes.Item("a12").Checked = True
TreeView1.Nodes.Item("a13").Checked = False
TreeView1.Nodes.Item("a14").Checked = True
TreeView1.Nodes.Item("a15").Checked = FalseEnd SubPrivate Sub Form_Initialize()
Dim i
Dim y
    TreeView1.Nodes.Add , , "a" & i & y, i & y & "ssssssssss", 3, 4
For i = 1 To 10
  For y = 1 To 5
    TreeView1.Nodes.Add "a", tvwChild, "a" & i & y, i & y, 1, 2
  Next y
Next i
DoEvents    '很重要！延时作用
End Sub

Answer 4

to :shawls(小山(坚持VB,学Delphi和C#))　
   为什么一定要这样处理？能不能全部放在LOAD事件中完成？还有，为什么加上了DOEVENTS就可以，不加就不行？请您详细讲解一下，谢谢！

Answer 5

  我也不知道，我是通过调试出来的
   呵呵，activen事件，我都不知道是干什么得，呵呵

Answer 6

其实不用这么麻烦的
不要在设计时连接上ImageList就可以了
在Form_Load时连接Set TreeView1.ImageList = ImageList1
TreeView1.Nodes.Add , , , "111", 1
TreeView1.Nodes(1).Checked = True