Effet mouseover sur un label avec sa fonction clic

Commenter

Contenu du snippet

Ces quelques lignes vont vous permettre de recréer l'effet visuel sur un label lorsque celui-ci est survollé par le curseur. Le label change de couleur et cliquez dessus pour lancer une nouvelle fonction.
Pour cela, sur votre formulaire, placez un label1 et rendez le transparent. Notez son caption. faite un copier - coller et placez le Label2 par dessus le label1
Le label1 rendez le invisible dans la page de propriété et placez le au 1er plan
Collez le code ci-dessous et lancez votre projet

Source / Exemple : 


Private Sub Form_Load()
'label1 invisible
'label2 visible
Label1.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'label1 invisible lorsque la souris passe sur le formulaire
'label2 visible
Label1.Visible = False
End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'label1 visible lorsque la souris passe sur le label2
'label2 invisible
Label1.Visible = True
End Sub

Private Sub Label1_Click()
   MaFonction
End Sub

Conclusion :


Pour faire la différence, mettez un label de couleur Bleu lorsqu'il n'est pas survollé, et rouge lorsque le curseur est placé dessus.
Pour agrémenté le tout, mettez une icon perso dans la propriété MouseIcon

A voir également

S'inscrire maintenant

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.

Du même auteur (PratEmmanuel)