Question

VB中check1的click事件中更改了check2的value值就会触发check2的click事件

Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0
Else
MsgBox "aa"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Check1.Value = 0
Else
MsgBox "bb"
End If
End Sub

假设其中有一个复选框被选中，当我单击其中一个筛选框就会触发另一复制框的ELSE语句，这是为什么？有没有办法让他不触发？因为我在两个复选框中都编写了语句，这样就会使得语句跳来跳去，乱了!
本人正在编写多选题的答案处理，卡在这里了！万分感谢

Answer 1

因为当你用代码设置 Check2.Value = 0 的时候, 是会自动执行Check2_Click 事件的,这个代码我认为非常不合理 顾名思义 click是点击的意思,用代码更改它的值的时候 我觉得不触发click才合理,因为不是用点击的

Answer 2

‘鼠标按下事件
Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
……’代码
End Sub
Private Sub Check2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
……’代码
End Sub

Answer 3

在最外面定义一个模块级变量：
Dim IsUserClk as Boolean
然后在合适的位置（比如Form_Load）将它初始化为True。

Private Sub Check1_Click()
if Not IsUserClk Then Exit Sub
If Check1.Value = 1 Then
IsUserClk = False
Check2.Value = 0
IsUserClk = True
Else
MsgBox "aa"
End If
End Sub

追问

不知道加到哪里合适，不是还是谢谢你