Effet mouseover sur un label avec sa fonction clic
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 829 fois - Téléchargée 40 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
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
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
- Effet mouseover sur un label avec sa fonction clic
- Petit effet 3d sur un label - Codes sources - Visual Basic / VB.NET (Control)
- Effet d'embosse dans un label - Codes sources - Visual Basic / VB.NET (Formulaire)
- Visual Basic / VB.NET : Effet de couleur label - CodeS SourceS - Guide
- Flash : Effet de vagues + fonction de temporisation - CodeS SourceS - Guide
- Java : Petite calculatrice montrant le fonctionnement de l'effet de pile (stack) - CodeS SourceS - Guide
@+ et bonne prog.
@+ et bonne prog.
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.
@+
mais enfin c un peu chercher la petite bête là :)
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.