Dans l'éditeur de code, le curseur se trouvant encore dans la procédure lblBonjour.MouseMove, déroulez la liste Procedure et choisissez MouseDown. Dans la nouvelle procédure créée, tapez la ligne de code suivante :
Private Sub lblBonjour_MouseDown(arguments...)
lblBonjour.ForeColor = vbBlue
End Sub
Enregistrez votre projet et démarrez l'application (F5). Cliquez sur l'étiquette. Qu'observez-vous?
|
Quand on appuie sur le bouton de la souris (gauche ou droit), le texte devient bleu. Mais si on bouge la souris, même en gardant le bouton enfoncé, le texte change de couleur. |