各位大虾:
请教在VB中如何取消事件呀?
我开发了一个权限分配模块,左边是系统菜单结构(TreeView带Checkbox的),右边是用户列表,想实现的功能是当在左边
的TreeView中取消某个节点的CheckBox时,自动判断该节点下的子节点中是否有被Checked的,如果有,则不允许取消这个
节点的Checkbox
TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Children > 0 Then
Set TNode = Node.Child
If TNode.Checked = True Then
hasChild = True
Else
Do While 1
If TNode.Next Is Nothing Then
Exit Do
Else
Set TNode = TNode.Next
If TNode.Checked = True Then
hasChild = True
Exit Do
End If
End If
Loop
End If
End If 但是还是不行,虽然此节点的Checkbox会暂时显示被勾上,但事件执行完毕该Checkbox仍然会被取消,是否有办法取消
TreeView1_NodeCheck 这个事件的代码中取消TreeView1_NodeCheck(本身)这个事件呢?
请教在VB中如何取消事件呀?
我开发了一个权限分配模块,左边是系统菜单结构(TreeView带Checkbox的),右边是用户列表,想实现的功能是当在左边
的TreeView中取消某个节点的CheckBox时,自动判断该节点下的子节点中是否有被Checked的,如果有,则不允许取消这个
节点的Checkbox
TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Children > 0 Then
Set TNode = Node.Child
If TNode.Checked = True Then
hasChild = True
Else
Do While 1
If TNode.Next Is Nothing Then
Exit Do
Else
Set TNode = TNode.Next
If TNode.Checked = True Then
hasChild = True
Exit Do
End If
End If
Loop
End If
End If 但是还是不行,虽然此节点的Checkbox会暂时显示被勾上,但事件执行完毕该Checkbox仍然会被取消,是否有办法取消
TreeView1_NodeCheck 这个事件的代码中取消TreeView1_NodeCheck(本身)这个事件呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货