Rubrik: Maus & Tastatur | 13.07.01 |
SetCursorPos-Funktion Setzt den Mauscursor auf eine Bildschirm Koordinate. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 18.520 |
Deklaration:
Declare Function SetCursorPos Lib "user32" ( _ ByVal x As Long, _ ByVal y As Long) As Long
Beschreibung:
Setzt den Mauscursor auf eine Bildschirm Koordinate.
Parameter:
x | Horizontale Koordinate der neuen Mausposition |
y | Vertikale Koordinate der neuen Mausposition |
Rückgabewert:
War der Funktionsaufruf erfolgreich, wird ein Wert ungleich "0" zurückgegeben. Tritt ein Fehler auf so ist der Rückgabewert "0".
Beispiel:
Private Declare Function SetCursorPos Lib "user32" ( _ ByVal x As Long, _ ByVal y As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click () Dim MiddleY As Long, Middlex As Long, Radius As Long Dim TX As Long, TY As Long, Grad As Long Do ' Einen Kreis berechnen MiddleX = (Screen.Width / Screen.TwipsPerPixelX) / 2 MiddleY = (Screen.Height / Screen.TwipsPerPixelY) / 2 Radius = MiddleY / 2 Grad = Grad + 1 TX = MiddleX + Cos((Grad / 360) * 2 * 3.141) * Radius TY = MiddleY + Sin((Grad / 360) * 2 * 3.141) * Radius ' Programm für ein 5 Millisekunden anhalten Sleep 5 DoEvents ' Mauszeiger setzen SetCursorPos TX, TY Loop Until Grad > 360 End Sub