"evenements" onmouseout et onmouseover pour un controle

Description

But de la source, simuler ces deux événements pour un seul et unique controle qui possède un handle. :'(

Comment ça marche :

- Faut toujours laisser le module et le module de classe ensemble.
- Faut jamais accéder aux méthodes du module !!
- Faut créer sur le form courrant deux procédures publiques : Composant_OnMouseOut() et Composant_OnMouseOver() puis mettre le code désiré dedans.
- Suffit de manipuler le module de classe pour déclencher ces événements.

Dans cette source vous trouverez d'intéressant :

- Des API : GetWindowRect, GetCursorPos, SetTimer, KillTimer, GetDlgItem.
- Un parcours de collection (For Each) pour déterminer si un composant possède un handle ou pas.
- Le code qui permet de "simuler" OnMouseOut et OnMouseOver pour un objet.

Pour les débutants :
- Ne vous inspirer pas de la structuration du code, notament au niveau du module de classe et du module !
- Si ce code est trop compliqué, suffit juste de copier le code du module et de l'ajouter à celui de la form, mettre un timer (avec qq modifs) et ça fera la meme chose...

Source / Exemple :


' In the zip

Conclusion :


En fait, j'arrive pas à utiliser SetTimer hors d'un module à cause de l'instruction : AddressOf. Visiblement AddressOf et la procédure qu'il pointe ne sont utilisables que dans un module... :'''(
Sans quoi, yaurait qu'un unique module de classe avec la possibilité de l'instancier plusieurs fois pour plusieurs composants...
Si quelqu'un a une solution...

Bon..., on est d'accord, cette source n'a d'intérêt que l'aspect pédagogique de la chose... Donc pour des remarques à deux balles, passer votre chemin.

Bon coding à tous :)

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.