treeview节点 checked

Question

把CHECK改为图片[选种和不选种两张]，这样程序好控制多了，如果不让选择的话，那么，选择它的时候图片不变，否则图片交替更换就行了。

Answer 1

可以用一个循环
  sub treeview_click()
  dim click_index
  click_index=treeview1.selectitem.index
for i=0 to treeview1.count-1
 if treeview1.nodes(i).check=true then
    treeview1.node(i).check=false             
    treeview1.nodes(click_index).checked=true
 else
    treeive1.nodes(click_index).checked=true
 endif
next
end sub

Answer 2

Dim PreNode As Node
Private Sub Form_Load()
    For i = 1 To 10
        TreeView1.Nodes.Add , , , i & ".aaaaaaaaaaa"
    Next
    Set PreNode = TreeView1.Nodes(1)
End SubPrivate Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    
    If Node.Checked Then
       PreNode.Checked = False
       Set PreNode = Node
    End If
End Sub