Как узнать, какой кнопкой мыши был клик? (control_Cick)

[MiGan]

Вопрос простой до безобразия! Но ответ нужен еще быстрее
В событии Obj_click как узнать???

[Amed]

Использовать событие MouseDown. Переменная Button содержит кнопку.

[Kovu]

Как узнать :
Посмотреть на мышку , на свои пальцы и вспомнить какую кнопку ты нажал

[JohnCR]

Код: Выделить всё

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
    Case Is = 1
        MsgBox ("Левая")
    Case Is = 2
        MsgBox ("Правая")
    End Select
End Sub

[SHURUP]

JohnCR, А если пользователь колесиком щелкнет? И, вообще, тут ругают за цифровое выражение констант. посему правильнее было б

Код: Выделить всё

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
    Case vbLeftButton
        MsgBox ("Левая")
    Case vbRightButton
        MsgBox ("Правая")
    Case vbMiddleButton
        MsgBox ("Средняя")
    End Select
End Sub

[Emzari]

можно исползовать функцию GetAsyncKeyState с параметрами
VK_LBUTTON, VK_RBUTTON или Public Const VK_MBUTTON

Код: Выделить всё

If GetAsyncKeyState(VK_LBUTTON) Then
    суда свой код
End If

[tyomitch]

Emzari, это грубая ошибка. GetAsyncKeyState вернёт состояние кнопок на момент запроса, а не на момент нажатия: есть вероятность, что все кнопки к этому моменту уже будут отпущены.