Pravé levé tlačítko
Public
Class Form1
Private Sub Form1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Label4.Text = e.X Label6.Text = e.Y If e.Button = Windows.Forms.MouseButtons.Left Then
Label2.Text = "stisknuto levé tlačítko"
End If
If e.Button = Windows.Forms.MouseButtons.Right Then
Label2.Text = "stisknuto pravé tlačítko"
End If
If e.Button = Windows.Forms.MouseButtons.None Then
Label2.Text = "žádné tlačítko"
End If
If e.Button = Windows.Forms.MouseButtons.Middle Then
Label2.Text = "stisknuto prostřední tlačítko"
End If
End Sub
End Class