VB: Mausklick erzeugen

Im Tipp "Mauszeiger bewegen" haben Sie bereits erfahren, wie man den Mauscursor "künstlich" verschieben kann. Auch bei einem Mausklick muss nicht immer auch wirklich eine der Maustasten betätigt werden...

Bewertung dieses Tipps:

(bewertet von insgesamt 11 Besuchern)

Um diese API-Funktion in Ihren eigenen Projekten verwenden zu können, muss Sie zuerst im Kopf der Datei deklariert werden. Zusätzlich werden noch einige Konstanten, eine Variablendefinition und drei Funktionen (die alles etwas praktischer machen) benötigt. Ich empfehle Ihnen, diese Deklarationen und die Funktionen in einem Modul zu plazieren, da die Funktionen dann später im gesamten Projekt zur Verfügung stehen.

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Public Enum MouseButtons
   LeftMouseButton
   RightMouseButton
   MiddleMouseButton
End Enum

Public Sub MouseUp(MouseButton As MouseButtons)
   Select Case (MouseButton)
      Case LeftMouseButton
         Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
      Case MiddleMouseButton
         Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
      Case RightMouseButton
         Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
   End Select
End Sub

Public Sub MouseDown(MouseButton As MouseButtons)
   Select Case (MouseButton)
      Case LeftMouseButton
         Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
      Case MiddleMouseButton
         Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
      Case RightMouseButton
         Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
   End Select
End Sub

Public Sub MouseClick(MouseButton As MouseButtons)
   MouseDown (MouseButton)
   MouseUp (MouseButton)
End Sub

Obwohl ich denke, dass sich die Aufrufe der Funktionen von selbst erklären, hier nochmal ein Beispiel, das den Aufruf der Funktion "MouseClick" demonstriert:

MouseClick LeftMouseButton

Dieser Aufruf erzeugt also einen Doppelklick mit der linken Maustaste. Natürlich können Sie die Funktionen beliebig miteinander koppeln, wie dies auch die Funktion "MouseClick" mit "MouseDown" und "MouseUp" tut. Für einen Doppelklick beispielsweise, rufen Sie einfach die Funktion "MouseClick" zweimal hintereinander auf.

Sie können sich hier ein Beispiel als Projektdatei für Vb5 und Vb6 herunterladen.

Projekt herunterladen

Quellen: SHADOWare.de
Letzte Änderung: 12.07.00