RSS
StartseiteKnowledge LibraryTop 10Impressum

10.5 Wie ermittel ich die aktuelle Mausposition?

VB4-VB6

Von:  [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"