Как узнать, не нажаты ли 2 кнопки мыши на кнопке?

[Гость]

???

[Ennor]

MouseDown() - событие такое есть. Только там такая хитрость, что ты не получишь никогда одного события для нажатия 2 кнопок мыши сразу. Ты получишь 2 события, по одному на каждую кнопку. Так что там надо флаг нажатости делать, а контролировать его в MouseDown() и MouseUp().

[ALX_2002]

Брательник. Я тут с утра после весёлой ночи, так что код оптимизировать не успел. Сорри. Но пашет - 100%

Пихай в форму и жми страт.

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

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Do
If GetAsyncKeyState(1) <> 0 And GetAsyncKeyState(2) <> 0 Then
Me.Caption = "Нажаты обе"
Else
If GetAsyncKeyState(2) <> 0 Then Me.Caption = "Нажата левая кнопка"
If GetAsyncKeyState(1) <> 0 Then Me.Caption = "Нажата правая кнопка"
End If
Sleep 2
DoEvents
Loop
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = ""
End Sub



[/code]

[tyomitch]

Не устаю напоминать, что (например, на сильно загруженной машине) получаемое значение GetAsyncKeyState будет уже не то, что на момент нажатия...

[ALX_2002]

2 tyomitch: Прально.... Ну терь ваще не будем ответов давать на вопросы. И будем писать проги чётко на ассеблере, чтоб уж если затормозит, то я не виноват, да ?

[tyomitch]

ALX_2002, ты зря возмущаешься - Ennor дал совершенно правильный ответ.
Или может, вообще не обращать внимание на ошибки в программах - ну, работает через раз, и ладно?

[HugoFlex]

Есть такой параметр Button.

Если прописать это в событии MouseDown()
If button=3 then ....
то таким образом можно проверит не нажата ли правая и левая кнопка

[xolod]

А нету в вб такого понятие, как нажатие на левую и правую кноки одновременно, vbLeftButton - есть, vbRightButton - тоже есть, даже vbMiddleButton есть, а вот vbLeftAndRightButton нет, так что твой совет с цифрой 3 (я так понимаю, сложение vbLeftButton и vbRightButton) не имеет никакого смысла

[ALX_2002]

2 tyomitch: Отец. Я не возмущаюсь не в коем случае !! Я спокоен как танк. Я лишь говорю о том, что многоуважемый мною Ennor дал совет, а я дал пример. Я учёл возможность, что человеку нужен резьутат сегодня и сейчас, а не совет, над которым надо думать.

P.S That's all, what I wanted to say.

С уважением ALX_2002

[Ruslan Demidow]

А нету в вб такого понятие, как нажатие на левую и правую кноки одновременно, vbLeftButton - есть, vbRightButton - тоже есть, даже vbMiddleButton есть, а вот vbLeftAndRightButton нет, так что твой совет с цифрой 3 (я так понимаю, сложение vbLeftButton и vbRightButton) не имеет никакого смысла

У триггера есть только два положения: включено/выключено.
То же самое с кнопками мыши. Как ты представляешь себе значение сигнала, что нажаты обе кнопки одновременно?

[Vovik]

А нету в вб такого понятие, как нажатие на левую и правую кноки одновременно, vbLeftButton - есть, vbRightButton - тоже есть, даже vbMiddleButton есть, а вот vbLeftAndRightButton нет, так что твой совет с цифрой 3 (я так понимаю, сложение vbLeftButton и vbRightButton) не имеет никакого смысла

У триггера есть только два положения: включено/выключено.
То же самое с кнопками мыши. Как ты представляешь себе значение сигнала, что нажаты обе кнопки одновременно?

Интересно, а как же это делает DirectX? Все возможно! Просто надо думать.....

[Amed]

DirectX? А что DirectX делает? Прошу поподробнее...

[Ennor]

Ну ломает меня примеры писать, ломает! Нате, получайте...
Кинь это в код формы, а на саму форму кинь ListBox

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

Option Explicit
' /////////////////////////////////////////////////////////////////////////////
Private PressedButtons As Integer
' /////////////////////////////////////////////////////////////////////////////
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PressedButtons = PressedButtons + Button
If PressedButtons < 0 Then PressedButtons = 0
Call Check_Buttons
End Sub
' /////////////////////////////////////////////////////////////////////////////
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PressedButtons = PressedButtons - Button
If PressedButtons < 0 Then PressedButtons = 0
Call Check_Buttons
End Sub
' /////////////////////////////////////////////////////////////////////////////
Private Sub Check_Buttons()
Dim Z As Long
Me.List1.Clear
For Z = 0 To 15
  If (PressedButtons And (2 ^ Z)) > 0 Then Me.List1.AddItem "Button " & Z + 1
Next Z
End Sub


Предупреждаю сразу - у меня глючило при дабл-кликах колесом, поэтому поставил проверку на отрицательное значение. И еще: Басик не видит доп. кнопки просто в упор. Видимо, бу дезигн...

[HugoFlex]

А нету в вб такого понятие, как нажатие на левую и правую кноки одновременно, vbLeftButton - есть, vbRightButton - тоже есть, даже vbMiddleButton есть, а вот vbLeftAndRightButton нет, так что твой совет с цифрой 3 (я так понимаю, сложение vbLeftButton и vbRightButton) не имеет никакого смысла

А именно там есть такая константа vbLeftButton+vbRightButton. Я это даже прочел в руководстве по Visual Basic 6.0.