Узнать, что кнопка мыши нажата (Да!)

[Mikle]

Не сочтите сразу за "детский" вопрос. Поясняю:
Существует булевская переменная, запоминающая, что мышь нажали, при MouseDown и сбрасывающаяся по MouseUp. Но при быстром нажатии происходит DoubleClick вместо второго нажатия. Вот проверочный код:

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

Option Explicit

Dim M2Pressed As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then M2Pressed = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then M2Pressed = False
End Sub

Private Sub Timer1_Timer()
  Caption = M2Pressed
End Sub

На форма таймер на 16 мс. Быстро нажмите, отпустите и снова нажмите правую кнопку.
Перевызов MouseDown из DoubleClick не годится, так как DoubleClick не различает нажатые кнопки. Неужели ради этой мелочи придётся прикручивать DirectInput?
Клики мимо формы меня не волнуют - это полноэкранное приложение, при потере-восстановлении фокуса состояния будут сбрасываться.

[CyberPunk]

На форма таймер на 16 мс. Быстро нажмите, отпустите и снова нажмите правую кнопку.
Перевызов MouseDown из DoubleClick не годится, так как DoubleClick не различает нажатые кнопки. Неужели ради этой мелочи придётся прикручивать DirectInput?
Клики мимо формы меня не волнуют - это полноэкранное приложение, при потере-восстановлении фокуса состояния будут сбрасываться.

Зачем при DoubleClick различать нажатые кнопки, если и так известно, что это левая (основная) кнопка?

Всю жизнь думал, что DoubleClick может быть только левой кнопкой, проверил, оказывается нет.. Sorry

[Хакер]

Не сочтите сразу за "детский" вопрос.

Вопрос, тем не менее, детский, с точки зрения Windows-программирования

Если бы Windows писали те люди, которые делают её сейчас, наверняка было бы нужно привлекать DirectInput. К счастью 20 лет назад думали о другом.

Событие DblClick рэйсится в ответ на соответствующее сообщение. А соответствующее сообщение шлётся в ответ на реальный дабл-клик, вместо посылки пары MOUSE-сообщений. Эдакая фича. Отключаема ли она? К счастью да. На работу этой фичи играет стиль класса CS_DBLCLKS

Поэтому:

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

Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GCL_STYLE = (-26)
Private Const CS_DBLCLKS = &H8

    cs = GetClassLong(Me.hwnd, GCL_STYLE)
    cs = cs And Not CS_DBLCLKS
    SetClassLong Me.hwnd, GCL_STYLE, cs

[Mikle]

Благодарю! Всё отлично работает.