vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Maus & Tastatur13.07.01
SetCursorPos-Funktion

Setzt den Mauscursor auf eine Bildschirm Koordinate.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  18.491 

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:
xHorizontale Koordinate der neuen Mausposition
yVertikale 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

Diese Seite wurde bereits 18.491 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel