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
@+ 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.