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

发布网友 发布时间：2024-10-23 21:21

我来回答

共3个回答

热心网友 时间：2024-11-09 16:09

‘鼠标按下事件
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

热心网友 时间：2024-11-09 16:01

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

热心网友 时间：2024-11-09 16:08

在最外面定义一个模块级变量：
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