Vous avez probablement remarqué aussi que le texte ne redevient noir que lorsqu'on relâche le bouton (à l'extérieur de l'étiquette). Mais ça, on s'en occupera plus tard!
|
Le texte de l'étiquette ne devient bleu qu'avec
le bouton de gauche et reste bleu même si l'on bouge
la souris. Vous avez probablement remarqué aussi que le texte ne redevient noir que lorsqu'on relâche le bouton (à l'extérieur de l'étiquette). Mais ça, on s'en occupera plus tard! |
Supposons que nous voulons que l'étiquette Bonjour s'enfonce et se relâche selon que vous appuyiez ou relâchiez le bouton gauche de la souris. Dans la procédure lblBonjour_MouseDown, ajoutez la ligne de code (en caractère gras) qui suit sous ce paragraphe. Placez la entre les lignes indiquées en caractère maigre.
lblBonjour.ForeColor = vbBlue
lblBonjour.BorderStyle = 1
End If
Il n'y a que deux valeurs possibles pour la propriété BorderStyle : 0 - sans bordure et 1 - avec bordure.
Maintenant, déroulez la liste Procedure et chaoisissez MouseUp. Dans la nouvelle procédure, tapez ceci(ne tapez que les lignes en caractères gras) :
Private Sub lblBonjour_MouseUp(arguments...)
If Button = 1 then
lblBonjour.BorderStyle = 0
End If
End Sub
Enregistrez le projet et démarrez l'application. Qu'observez-vous?