Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate 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)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 400, 300, cButt, dwEI
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, cButt, dwEI
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, cButt, dwEI
End Sub
à l'aide de deux textbox
il souligne plein de chose en rougeoui figure toi qu'il existe des correcteurs d'orthographe dans les navigateurs internet, et il est rare qu'ils parlent le C#.....
mais c est pour effectivement piloter une application externe...
mais non autoit ne me permet pas de faire ce que je veux
Mais vb.net me semble beaucoup moins flexible que vba..
Dsl ucfoutu mas je neveux pas en dire plus... l' appli est est sur ma machine et ne supporte pas l automation
En fait j'ai deja fait mon prog en vba , mais je voulais qu il fonctionne sans excel, d ou mon choix pour vb.net
Maintenant je sais que que vb.net peut faire ce que je veux en quelque ligne car vba le fait tres bien
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
Sub test()
SetCursorPos Val(UserForm1.TextBox29), Val(UserForm1.TextBox30)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub