Lien hypertexte comme ie

Description

Cet ActiveX contient tous les éléments nécessaires pour ajouter des lien hypertextes à vos applis.

Source / Exemple :


J'y ai ajouté un événement qui n'apparaît dans aucun contrôle standart : MouseOut() qui se déclenche qd le curseur quitte l'objet
Pour ce qui est de l'évènement Click(), il possède des propriétés mais certaines sont invariables puisque l'événement ne se déclenche que si le bouton gauche est enfoncé (btn = 1) et si aucune touche n'est pressée (shift = 0).

La propriété MoveUnderline spécifie si le texte doit être souligné au passage de la souris.
Target spécifie le fichier, l'appli, etc. à ouvrir qd on clic sur le lien. Si rien n'est indiqué, c'est à vous de le faire pendant l'événement Click.
Enfin, ActiveDownColor spécifie si le contrôle réagit à l'événement MouseDown en changeant de couleur.

Lorsque vous ajoutez un contrôle HyperLink sur une feuille, il génére un numéro de série qui est modifié à chq compilation. Ce numéro n'est ici pas utile et vous pouvez supprimer sa génération.

Conclusion :


PS : le code source n'est pas commenté vu qu'il est très simple et qu'en plus l'ActiveX n'est pas fini !

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.