MOUSEEVENTF
23.05.2015 11:12:28
Thomas
Ich benötige bitte eure Hilfe.
Ich steuere mit der SendKey Methode eine zweite Datenbank an.
Das Ansteuern funktioniert einwandfrei.
Wenn eine gewisse Zeile in der Datenbank angesteuert ist, soll ein Doppelmausklick
ausgeführt werden. Unten seht ihr meinen Code. Nur, es passiert nichts, ausser
ich gehe mit der Mouse auf die Zeile, dann wird der gewünschte Doppelklick
ausgeführt. Könnt ihr mir bei dem Problem weiterhelfen.
Vielen Dank!!!
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
Sub Doppelklick_Links()
Dim i As Integer
For i = 1 To 2
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
Next i
End Sub