Question

VB Click事件

怎么只让鼠标左键单击触发 Click事件

Answer 1

click 本来就是左键单击才会触发啊 除非你设置鼠标为左右键互换

一定要左键的话 可以通过mouse down 事件来判断 设置一个标志来处理就可以

追问

Form这类的click 右键滚动键单击都会触发

追答

Dim flag As Integer
Private Sub Form_Click()
Select Case flag
Case 1
MsgBox "你点左键，在这行代码后面添加你要做的事情"
Case 2
MsgBox "你点右键，啥事也不做"
Case Else
MsgBox "不知道你想干啥？"
End Select
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = Button
End Sub

Answer 2

Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
'这里加上你要出发的代码
End Sub