Discussion :

[lvr]

Bonjour,
Je voudrais suspendre une macro vba (mais pas pour une application office), afin de laisser l'utilisateur clicker sur l'écran (pour indiquer des coordonnées).
Mon idée est de passer par un DoEvents() pour attendre le click puis récupérer la position via un GetCursorPos().
Problème, je n'ai pas trouvé comment "entendre" le click.
Le modèle des objets de l'application (Corel Photopaint) n'a aucun event OnClick auquel je pourrais me rattacher.
Je vois dans la faq ici qu'il est possible d'entendre l'utilisation des touches du clavier. Existe-t-il un fonction similaire pour la souris ?
Merci,
Laurent

[ProgElecT]

Bonjour,
Je voudrais suspendre une macro vba (mais
..........
Je vois dans la faq ici qu'il est possible d'entendre l'utilisation des touches du clavier. Existe-t-il un fonction similaire pour la souris ?
Merci,
Laurent

VB6, VBA ...... ,peux tu préciser

[lvr]

VB6, VBA ...... ,peux tu préciser

C'est en VBA que je fais le boulot, mais je crois que, dans mon cas, cela revient au même car dans mon esprit, il devrait s'agir un call à une fonction WinAPI.
Si j'ai visé le forum VB6, c'est que les forums VBA sont hyper-centrés sur VBA pour MsOffice et que moi c'est VBA pour Corel Photopaint.

[OhMonBato]

Pour intercepter le click, regarde l'API GetAsyncKeyState, désolé pas le temps d'expliquer pllus maintenant mais tu dois trouver des exemples dans la FAQ

[lvr]

Pour intercepter le click, regarde l'API GetAsyncKeyState, désolé pas le temps d'expliquer pllus maintenant mais tu dois trouver des exemples dans la FAQ

The GetAsyncKeyState function determines whether a key is up or down at the time the function is called, and whether the key was pressed after a previous call to GetAsyncKeyState. Voici ce que dit la doc sur msdn que je ne connaissais pas. Donc cette fonction est pour le clavier. Masi à côté, ils y parlent aussi de la souris. Je lis tout ça et je reviens.

[lvr]

Je viens de lire la doc relative à la gestion de la souris sur MSND, mais je n'ai pas trouvé mon bonheur. Je vois bien une possibilité avec SetCapture(...) je ne vois pas trop comment intégrer cela dans mon code...

[OhMonBato]

Comme je le disais plus haut, c'est dans la FAQ et tu peux intercepter les clics souris gauche (1), droit (2), milieu(4) :
http://vb.developpez.com/faq/?page=A...tAsyncKeyState

En allant voir d'ailleurs sur MSDN (http://msdn.microsoft.com/en-us/libr...93(VS.85).aspx) il suffit de cliquer sur le lien Virtual Key Codes pour avoir la même explication.

[lvr]

Ok merci. Le titre de la faq ne m'avait pas incité à aller voir aussi loin.