Effet mouseover sur un label avec sa fonction clic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 739 fois - Téléchargée 39 fois

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

Ajouter un commentaire

Commentaires

Scooby1
Messages postés
48
Date d'inscription
dimanche 12 mai 2002
Statut
Membre
Dernière intervention
26 novembre 2003
-
Encore désoler "Proprièté".

@+ et bonne prog.
Scooby1
Messages postés
48
Date d'inscription
dimanche 12 mai 2002
Statut
Membre
Dernière intervention
26 novembre 2003
-
Désoler pour l'ortho. "Propièté".

@+ et bonne prog.
Scooby1
Messages postés
48
Date d'inscription
dimanche 12 mai 2002
Statut
Membre
Dernière intervention
26 novembre 2003
-
interessant mais Extra Complexe.

Plus simple :

Placer un Label sur le Form nommé Label1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.FontBold = False
Label1.ForeColor = vbBlack

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.FontBold = True
Label1.ForeColor = vbRed

End Sub

Code simplifié et plus simple visuellement.

En gros cela rejoint ce que disait farfad.

A unloader @

- Bord de form

Et Voila plus et avec exemple. enfin ce site est là pour apprendre.
lol :)

La fonction peut amplifier suivant les proièter utilisées.

@+
yoko62
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
16 mai 2003
-
hum ok je vois peut ê le pb - cela dit ça n'est arrivé que lorsque le label été près du bord de la form
mais enfin c un peu chercher la petite bête là :)
yoko62
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
16 mai 2003
-
scuse mais je vois pas de koi tu parles, j'ai fait un truc comme ça durant un stage et ça marchait très bien :)
seul cas où ça marche pas : si tu déplace la souris alors qu'un bouton est enfoncé - mais ça peut être amélioré. enfin là ça devient du perfectionnisme :)

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.