Hallo alle zusammen,
Ich würde gerne in VB die X und Y Position meiner Maus und die Mausradbewegung in einen Zahlenwert einlesen und in 3 Textboxen/Labels ausgeben.
Ich hoffe mir kan jemand helfen!
Danke im Voraus!
Da gibt es ein fertiges Tool irgendwo…
Sekunde…
Das habe ich auch schon Programmiert.
Private Sub Fenster_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim MPos As Point
MPos = New Point(MousePosition.X, MousePosition.Y)
'MPos = New Point(Control.MousePosition.X, Control.MousePosition.Y)
'Dim pt As New Point(CInt(Windows.Forms.Cursor.Position.X), CInt(Windows.Forms.Cursor.Position.Y))
Me.lblCurserPositionXY.Text = MPos.X & ", " & MPos.Y 'Windows.Forms.Cursor.Position.X & ", " & Windows.Forms.Cursor.Position.Y
End Sub
Module Events
Public Declare Sub mouse_event Lib „user32“ Alias „mouse_event“ (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 ’ absolute move Public Const MOUSEEVENTF_ABSOLUTE = & H8000 'absolute bewegen
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ’ left button down Public Const MOUSEEVENTF_LEFTDOWN = & H2 'links-Taste gedrückt
Public Const MOUSEEVENTF_LEFTUP = &H4 ’ left button up Public Const MOUSEEVENTF_LEFTUP = & H4 "-Taste links oben
Public Const MOUSEEVENTF_MOVE = &H1 ’ mouse move Public Const MOUSEEVENTF_MOVE = & H1 "Maus bewegen
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
'Public Const MOUSEEVENTF_MIDDLEDOWN = & H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
'Public Const MOUSEEVENTF_MIDDLEUP = & H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
'Public Const MOUSEEVENTF_RIGHTDOWN = & H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
'Public Const MOUSEEVENTF_RIGHTUP = & H10
End Module
Grüsse Sebastian