Dim a_node As WinForm.TreeNode = Args(0)
If a_node.Level > 0 Then
Dim flag As Boolean = True
For Each node As WinForm.TreeNode In a_node.ParentNode.Nodes
If node.Checked Then
flag = False
Exit For
End If
Next
If flag = True Then
a_node.ParentNode.Checked = False
Functions.Execute("CheckNode", a_node.ParentNode)
Else
a_node.ParentNode.Checked = True
Functions.Execute("CheckNode", a_node.ParentNode)
End If
End If
然后把节点复选事件改为
Functions.Execute("CheckNode", e.Node)
这样测试了一下，好象也行………………
[此贴子已经被作者于2012-11-2 22:04:31编辑过]
加好友 
发短信
Post By：2012/11/2 22:03:00 [只看该作者]
