Dectecting Both Mouse Buttons Pressed

[redbird77]

How do I determine if the user pressed both the left and right mouse buttons at the same time?

The catch is that I want to know this information from the MouseDown event, not the MouseMove event.

MouseDown - Button = the button which caused the event

MouseMove - Button = collective state of pressed buttons

It's the latter Button state that I want, but I do not want to have to use the MouseMove event?

Any ideas?

[JasonLpz]

i dont know the code but all u have to do is make it so when you press the eft it checks the right and if the right is down then execute code if not then do else.

[redbird77]

...but that won't work will it?

In the MouseDown event Button = vbLeft or vbRightButton, so it can't be both?

[Harddisk]

Originally posted by redbird77
How do I determine if the user pressed both the left and right mouse buttons at the same time?

The catch is that I want to know this information from the MouseDown event, not the MouseMove event.

MouseDown - Button = the button which caused the event

MouseMove - Button = collective state of pressed buttons

It's the latter Button state that I want, but I do not want to have to use the MouseMove event?

Any ideas?

Try this

Button = vbLeftButton + vbRightButton

[redbird77]

I've tried vbLeftButton + vbRightButton (which = 3).

But I think that only works in the MouseMove event. In the MouseDown event I'm only seeing Button as equal to 1 or 2.

Surly you can only catch one button, unless you are realy good at pressing both at the same time.


This catches to button presses
(code)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
MsgBox "Left"
End If

If Button = 2 Then
MsgBox "Right"
End If

End Sub
(\code)

[Harddisk]

Originally posted by redbird77
I've tried vbLeftButton + vbRightButton (which = 3).

But I think that only works in the MouseMove event. In the MouseDown event I'm only seeing Button as equal to 1 or 2.

Yes, it SHOULD work, I did that before. MouseDown/KeyDown Event is use to capture the number of buttons/keys pressed at a time.

You can try doing this

Select case Button
Case vbLeftButton
frmOut.txtButton.Text = "Left"
Case vbRightButton
frmOut.txtButton.Text = "Right"
Case vbMiddleButton
frmOut.txtButton.Text = "Middle"
Case vbLeftButton + vbRightButton
frmOut.txtButton.Text = "L+R"
Case vbLeftButton + vbMiddleButton
frmOut.txtButton.Text = "L+M"
Case vbMiddleButton + vbRightButton
frmOut.txtButton.Text = "M+R"
End Select

Well, of course you gotta create the textbox named txtButton on a form named frmOut

Good Luck!

Harddisk