EFFET MOUSEOVER SUR UN LABEL AVEC SA FONCTION CLIC
cs_farfad
Messages postés
11
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
29 mars 2004
-
15 mai 2003 à 08:58
Scooby1 Messages postés 48 Date d'inscription dimanche 12 mai 2002 Statut Membre Dernière intervention 26 novembre 2003 - 26 nov. 2003 à 14:41
Scooby1 Messages postés 48 Date d'inscription dimanche 12 mai 2002 Statut Membre Dernière intervention 26 novembre 2003 - 26 nov. 2003 à 14:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7104-effet-mouseover-sur-un-label-avec-sa-fonction-clic
https://codes-sources.commentcamarche.net/source/7104-effet-mouseover-sur-un-label-avec-sa-fonction-clic
26 nov. 2003 à 14:41
@+ et bonne prog.
21 nov. 2003 à 22:28
@+ et bonne prog.
21 nov. 2003 à 22:26
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.
@+
16 mai 2003 à 21:24
mais enfin c un peu chercher la petite bête là :)
16 mai 2003 à 21:14
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 :)
15 mai 2003 à 19:06
15 mai 2003 à 19:04
15 mai 2003 à 08:58
(les valeurs de couleur sont exprimées en héxa)