Mouse button clicks...

[lidds]

Is there a way in vb.net that you can tell what mouse button was clicked (i.e. left mouse button) and then perform an operation.

 

example:

 

if left mouse button clicked then
msgbox("left clicked")
elseif right mouse button clicked then
msgbox("right clicked")
endif

 

Thanks

 

Simon

[Rick_Fla]

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
      
If e.Button = MouseButtons.Right Then
      messagebox.show("Right Click")
Else
      messagebox.show("Left Click")
       End If

End Sub

[lidds]

Thanks a lot rick, worked great

[Rick_Fla]

Not a problem!

[Getox]

how would you do that for all the kayboard keys?

[coldfusion244]

how would you do that for all the kayboard keys?

 

In a different control, or on the form itself again?

[Getox]

form itself

 

so if A is pressed i want the form to +1 in a textbox

so if u press 3 diff chars the textbox will have the number 3 in it..you know what i mean?

[coldfusion244]

I code in C++/C# , but I believe this should work.

 

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
       If e.KeyChar = Chr(Keys.A) Then
            textbox1.Text = Integer.Parse(textbox1.text) + 1
       End If
   End Sub

 

If you wanted it for all keys then:

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        textbox1.Text = Integer.Parse(textbox1.text) + 1
   End Sub

Hope this helps.

-Sean

[Getox]

I code in C++/C# , but I believe this should work.

 

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
       If e.KeyChar = Chr(Keys.A) Then
            textbox1.Text = Integer.Parse(textbox1.text) + 1
       End If
   End Sub

 

If you wanted it for all keys then:

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        textbox1.Text = Integer.Parse(textbox1.text) + 1
   End Sub

Hope this helps.

-Sean

Thanks for the help

but none worked..i tried changing a few things but still didnt work.

 

i think its something in

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress