right left mouse click

Question

i am using this code and the right mouse click does not work

Private Sub label1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles labDateTime.MouseClick
    If Windows.Forms.MouseButtons.Left Then
            msgbox("Left")
    else
             msgbox("right")
    End If
End Sub

Answer 1

 

Private Sub Label1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick

If e.Button = Windows.Forms.MouseButtons.Left Then

MsgBox("Left")

Else

MsgBox("Right")

End If

End Sub

---

Coding for fun

Answer 2

This would be better

Private Sub Label1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick

Select Case e.Button

Case Windows.Forms.MouseButtons.Left

'code

Case Windows.Forms.MouseButtons.Middle

'more code

Case Windows.Forms.MouseButtons.Right

'more code

Case Windows.Forms.MouseButtons.XButton1

'more code

Case Windows.Forms.MouseButtons.XButton2

'more code

End Select

End Sub

---

Coding for fun

Answer 3

thanks for the help it worked great

Answer 4

Your welcome . By the way you should get in the habit of marking posts as answered when you create a topic and receive a suitable answer and also marking posts as helpful on all topics where you find a post helpful .

---

Coding for fun

Answer 5

ungrateful wretches!

---

Compensating what I don't know yet, with what I do know now.