Question

求 vb 鼠标点击事件

不是单击，也不是双击。是点击！
Label1_Click '单击
Label1_DblClick '双击
Label1_？？？ '如何点击？或者关闭LabelBox的双击功能，快速的两次点击都执行的是Click事件。
要求LabelBox就向CheckBox一样可以快速的对单击事件产生响应。

Answer 1

思路：把双击 Label1 的执行代码转向单击事件。

Private Sub Label1_Click()
    If Check1.Value = 1 Then
        Check1.Value = 0
    Else
        Check1.Value = 1
    End If
End Sub

Private Sub Label1_DblClick()
    Label1_Click
End Sub

Answer 2

你只要在Label1的DblClick写上与Click一样的代码，就能实现你要的效果了，比如

Private Sub Label1_Click()
Check1.Value = 1 - Check1.Value
End Sub

Private Sub Label1_DblClick()
Label1_Click
End Sub

追问

看来无法关闭DblClick事件了啊

Answer 3

所谓“点击”其实就是“单击”。你告诉我什么区别吗

追问

Private Sub Label1_Click()
If Check1.Value = 1 Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub
'问题是双击Label1与双击Check1后Check1.Value值不相同？