Discussion :

[al78310]

Bonjour tout le monde,
J'aimerais à l'aide de deux textbox, dans lesquelles j indiquerai la coordonnée de X, puis dans la seconde, la coordonnée de Y, pour que le programme clic (clic gauche). Les coordonnées sont relatives à l’écran svp.
Quelqu un pourait il m'aider svp

Bon dimanche

[VBcodeur]

Bien sûr je peux t'aider, mais ça sera un peu cher (blague).
Dans les variables au début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)     
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4

Et là où tu veux que ça se produise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
mouse_event(MOUSEEVENTF_LEFTDOWN, TextBox1.Text, TextBox2.Text, 0, 0) 'Enfonce le bouton de la souris 
Threading.Thread.Sleep(20) 
mouse_event(MOUSEEVENTF_LEFTUP, TextBox1.Text, TextBox2.Text, 0, 0) ' le relève

TextBox1.Text -> Valeur de X TextBox2.Text -> Valeur de Y.

[al78310]

Merci beaucoup
Je teste ta solution dans la soirée et je te dirais le resultat
Merci merci merciiiiiii

[al78310]

Re :
Merci pour ton code.
Mais j'ai un petit problème :
mouse_event
Threading
mouse_event
Ces 3 éléments sont surligner en rouge dans vs...
Désolé je suis vraiment nul...

merci encore

[al78310]

j'ai reussi merci beaucoup