Sendkeys-Befehl für rechte Maustaste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marek,
wie meine Vorgänger schon sagten, geht das nicht mit einfachen Mitteln und schon gar nicht mit Sendkey.
Die rechte Maustaste ist ja auch kein Key.
Tastenanschläge und Maussimulationen lassen sich einfach mit den API-Funktionen mouse_event und keybd_event realisieren.
Hier ein Beispiel für den mouse_event:


Private Const MOUSEEVENTF_MOVE = &H1        ' mouse move
Private Const MOUSEEVENTF_LEFTDOWN = &H2    ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4      ' left button up
Private Const MOUSEEVENTF_RIGHTDOWN = &H8   ' right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10    ' right button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40   ' middle button up
Private Const MOUSEEVENTF_WHEEL = &H800     ' wheel button rolled
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Sub Mouseevent()
'Rechtsklick an Position xPos,yPos
Dim xPos As Integer, yPos As Integer
xPos=100 : yPos=150
mouse_event MOUSEEVENTF_RIGHTDOWN, xPos, yPos, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, xPos, yPos, 0, 0
End Sub

Bei dieser Methode kannst Du den Rechtsklick jedoch nicht "senden", sondern nur an der betreffenden Position auf dem darunterliegenden Foregroundwindow ausführen.
Das bedeutet, um in anderen Fenstern Mausaktionen per mouse_event durchzuführen, müsstet Du die zuerst aktivieren, sozusagen den Focus geben.
PS:Die weitere Möglichkeit über Mouse-Messages lassich hier mal außen vor. Das ist nicht so einfach.
viele Grüße aus Hessen
Karl-Heinz

Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left btn down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left btn up Private Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right btn down Private Const MOUSEEVENTF_RIGHTUP = &H10 ' right btn up Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' mid btn dn Private Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle btn up Private Const MOUSEEVENTF_WHEEL = &H800 ' wheel btn Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' move Private Declare Function SetCursorPos Lib "user32" (ByVal _ X As Long, ByVal Y As Long) As Long Private Declare Sub mouse_event Lib "user32.dll" (ByVal _ dwFlags As Long, _ ByVal dx As Long, ByVal dy As Long, _ ByVal cButtons As Long, ByVal dwExtraInfo As Long) Sub Mouseevent() 'Rechtsklick an Position Posi Dim xPos As Integer, yPos As Integer xPos = 300: yPos = 300 SetCursorPos xPos, yPos mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 End Sub

Hallo,
@Herbert:
Danke für den Hinweis. Aber ich wollte schon fragen, welchen Mehrwert diese Function bringen soll. Natürlich habe ich gerade nach der neuen Funktion geguckt( wollen ja auf dem neuesten Stand sein), werde aber weder bei MS noch bei den Declares meiner Hauptprogrammiersprache fündig, und die sind meistens auf dem neuesten Stand.
Meine vorgeschlagene Version funktioniert auf jeden Fall immer noch bestens in meinen Anwendungen.
@Nepumuk:
Danke für den Tipp. Den werde ich bei künftigen Projekten berücksichtigen.
Aber im Zuge meiner Recherche zu Herberts Vorschlag bin ich auf


sendinput

gestoßen, der bei MS gegenüber



mouse_event

empfohlen wird.
Dafür habe ich auch passende Declares gefunden.
Habe Artikel dazu noch nicht weiter durchgelesen.
Weißt Du da auch was darüber? Bringt ein Wechsel was?
viel Grüße
KH

Beliebteste Forumthreads (12 Monate)

Sendkeys-Befehl für rechte Maustaste

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread