SetCursorPos-Funktion Setzt den Mauscursor auf eine Bildschirm Koordinate.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  973

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