VB 5/6-Tipp 0006: Mausposition setzen

von ActiveVB

Beschreibung

Mit dieser API lässt sich der Mauszeiger auf eine beliebige Stelle des aktuellen Formulars setzen.

Update am 23. August 2004: Der Code ist nun von der eingestellten ScaleMode-Eigenschaft unabhängig.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

ClientToScreen, SetCursorPos

Download:

Download des Beispielprojektes [1,91 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Figur-Steuerelement "Shape1"

Option Explicit

'Deklaration: Globale Form API-Typen
Private Type POINTAPI
    x As Long
    y As Long
End Type

'Deklaration: Globale Form API-Funktionen
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, _
    lpPoint As POINTAPI) As Long

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub MoveMouse(x As Long, y As Long)
    'Deklaration: Lokale Prozedur-Variablen
    Dim udtP As POINTAPI

    udtP.x = CLng(x)
    udtP.y = CLng(y)

    'Mauszeiger versetzen
    ClientToScreen hwnd, udtP
    SetCursorPos udtP.x, udtP.y
End Sub

Private Sub Command1_Click()
    Dim lngLeft As Long
    Dim lngTop As Long
    
    lngLeft = Shape1.Left + Shape1.Width / 2
    lngTop = Shape1.Top + Shape1.Height / 2
    
    lngLeft = Form1.ScaleX(lngLeft, Form1.ScaleMode, vbPixels)
    lngTop = Form1.ScaleY(lngTop, Form1.ScaleMode, vbPixels)
    
    Call MoveMouse(lngLeft, lngTop)
End Sub

Private Sub Form_Load()
    'Control-Eigenschaften initialisieren
    Command1.Caption = "Move Mouse"
End Sub


'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-Version	Win32s	Win95	Win98	WinME	WinNT4	Win2000	WinXP
VB4
VB5
VB6

Ihre Meinung

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Sachse am 22.12.2008 um 17:18

Der Tipp heißt: Mausposition setzen....Richtig?

Er heißt nicht: Wie benutze ich die Funktion "ClientToScreen". Der Tipp heißt auch nicht: Wie definiert man Shapes.

Die Hilfe dazu heißt: "Mit dieser API lässt sich der Mauszeiger auf eine beliebige Stelle des aktuellen Formulars setzen."

Beliebig heißt also: Wir basteln ein Shape und positionieren mittendrin den Mauszeiger?

Sorry...jeder weiß das die Autoren derartige Codes aus dem Ärmel schütteln. Derjenige, der die Tipps braucht, kann das aber nicht und muß sich erst mit Shapes beschäftigen, obwohl er eigentlich nur die Maus versetzen will. Viele eurer Tipps verfehlen das Ziel eine Hilfe zu sein, leider deutlich.

Kommentar von Roland Clever am 02.02.2006 um 04:08

Hallo,

hat sich schon erledigt ...
Das passiert, wenn man nach 3 Stunden erfolglosem Googeln völlig konfus ist.
Statt der SetCursorPos-API habe ich nun die mouse_event-API eingebaut. Nach ein wenig Herumrechnerei hatte ich dann auch endlich die Korrektur-Faktoren, um von der GetCursorPosition-API (Point.X/Point.Y-Koordinaten) brauchbare Werte für die mouse_event-API zu bekommen, um dort die neue Mausposition zu setzen: (983520 (+ ca. 6000 im unteren Koordinatenbereich bis ca. 50 Pixel) z.B.: dx = CDbl(Point.X * (983520 + KorrekturWert) / Screen.Width) ) - keine Ahnung ob das Rundungsfehler sind und wodurch überhaupt die 983520 zu stande kommen - es funtioniert jedenfalls für die gängisten Auflösungen: 1024x768 und 1280x1024.
Durch die mouse_event-API bekommen nun Win9x sowie Win-XP mit, das die Maus bewegt wurde, und die Screensaver/Standby-Modes werden nun nicht aktiviert solange das Programm läuft.

Ciao,
Roland

Kommentar von Roland Clever am 01.02.2006 um 23:43

Hallo,

ich habe Teile des Codes dazu verwendet, um in regelmäßigen Abständen dem System (Win9x) vorzugaukeln, das jemand an der Maus wackelt.
Hierdurch konnte ich verhindern, das weder der Screensaver eingeschaltet noch der Standby-Mode aktiviert wurde.
Win-XP kann ich mit diesem Trick scheinbar nicht beeindrucken.
Es merkt wohl das der MouseMove-Event aus einem Programm heraus erzeugt wurde - und nicht direkt aus dem System.
Kann mir jemand helfen?

Danke,
Roland

Kommentar von Thomas am 19.05.2005 um 09:26

Hallo,
eine dumme Frage, wie kann ich diesen Code verwenden, was brauche ich dafür alles?

Danke

Thomas

Kommentar von Kal-Lan am 14.05.2004 um 10:48

Habe das Projekt down geloaded und fuktioniert.
nach einfügen in mein oder ein neues Projekt geht es nicht mehr der Cursor landet immer links unten VB6

Kommentar von BreakerMaker am 09.07.2003 um 17:03

Ich evrstehe nicht was nitt klappt! Bei mir geht alles optimal! Habe XP und Enterprise-Edition. Ich glaubeder jenige, der sagte die maus ginge nitt zu der vonj ihm erwpnschten position, hat nicht beachtet, dass bei VB 0,0 oben links und nicht unten links im koordinatensys. ist!