VB4-VB6
Von: Tobias Schikora [Home]
Alles was man dazu braucht, ist eine API- und eine Typendeklaration. GetCursorPos heißt das gute Stück aus der User32.dll, welches uns den Typen POINTAPI (beinhaltet x und y Wert als Long-Datentyp) für die Auswertung der Mauskoordinaten zurückliefert.
Die Deklaration sieht folgendermaßen aus:
Private Declare Function GetCursorPos Lib "user32" Alias _ "GetCursorPos" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type
Als erstes muß eine Variable als Pointapi deklariert werden, die dann der Funktion übergeben wird. Danach kann der x und y Wert der Mausposition ausgelesen werden:
Dim MyMouse As POINTAPI GetCursorPos MyMouse MsgBox "Die Maus befindet sich an der Position " & _ MyMouse.X & "x" & MyMouse.Y, vbInformation, "Meldung"