Many thanks for your fast answer.
But... i can't do it working...( excuse me i am french and new programmer)
Could you be more explicit ??
What i did:
Sub Activatetest()
returnvalue = Shell(App.Path + "\test.exe", 1)
AppActivate returnvalue
SendKeys "{RIGHT}", True
SendKeys "{RIGHT}", True
test = Form_MouseDown (1,0,10,10)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If Button = 1 Then MsgBox "left"
If Button = 2 Then MsgBox "right"
End Sub
The sendkeys are executed, but the mouse clic do not work (error at
execution time).
Many thanks for your help
"StoneWare" <He*******@NoSpam.Net> a écrit dans le message de news:
44***********************@dread11.news.tele.dk...
"Totoche" <ni**@niconnu.com> skrev i en meddelelse
news:e5**********@news.tiscali.fr... Hello,
I cant find a way to send a "mouse clic" (right or left) to an
application, like SENDKEYS for the keyboard.
Thanks for any answer
Use the Form_MouseDown routine...like this
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Button = 1 Then MsgBox "left"
If Button = 2 Then MsgBox "right"
End Sub