Discussion :

[Renaud976]

Bonjour à tous,

Sauriez-vous comment intercepter Shift lors d'un DragOver en VB6?
C'est pour un outil "étirer" comme dans Word : si on appuie sur Shift (alors qu'on est déjà dans le DragOver), le coefficient d'étirement devient le même suivant X et Y.
Avec une autre touche l'étirement peut se faire relativement au centre de la figure.
J'ai l'impression que ça a été ajouté en .net mais je n'ai rien trouvé en vb6.

A vous lire,
Renaud.

[DarkVader]

Bonjour,
Dans l'évènement utilisé tu testes shift avec getasynckeystate.
Fais une recherche sur ce mot.

[Renaud976]

Ah oui, je n'y pensais plus à lui, je vais essayer, merci.

Bon, si je le mets dans l'événement, il faudra que l'utilisateur bouge la souris pour que l'effet soit visible mais je pense que ça devrait le faire.

Si je voulais le mettre au niveau Form (pour que l'effet soit visible même sans bouger la souris) ça suppose un timer je crois, est-ce que ça bouffe beaucoup de resources?

[Renaud976]

Ca fonctionne et c'est valable niveau utilisateur. Merci!

Renaud.