Check for Right Mouse Button

[Mikey]

Can you check if the Right Mouse Button (vbRightButton) has been used on a Label?

I already have a Label1_Click() event for the left button. When I left click on any label1 in my label1 control array an event will occure. How can I triger an event with the right button.

Thanks

[Hack]

In the MouseDown event, put:

If Button = vbRightButton Then
Msgbox "Right Mouse Button Clicked"
End If

[nullus]

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If (Button = vbRightButton) Then
    'do stuff
  End If
End Sub

[Mikey]

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single

Using this I get:

Procedure declared does not match discription of event or procedure having the same name.

Is this because of the control array?

[nullus]

yep, use this instead:

Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Select Case Index
    Case 1
      If (Button = vbRightButton) Then
        'do stuff
      End If
  End Select
End Sub

[Mikey]

Thanks... That works better.

I did change from MouseUP to MouseDown. MouseUP performed both left and right events.

[beachbum]

Originally posted by Mikey
Thanks... That works better.
I did change from MouseUP to MouseDown. MouseUP performed both left and right events.

Hi
Just for future reference... the mouse up and mouse down events will both allow u to check for left and right mouse buttons. There must have been some other error in ur code. Also, MouseUp is the conventional event for things like popup menus.
Regards
Stuart

[Mikey]

I'll keep that in mind... thanks