Tutoriel : Événements Souris

page 5 : Moitié rouge, moitié verte

Nous allons faire afficher une couleur différente selon que le pointeur se trouve sur la moitié gauche ou sur la moitié droite de l'étiquette Bonjour.

Modifiez la procédure lblBonjour_MouseMove en ajoutant le code suivant (en gras) :

Private Sub lblBonjour_MouseMove(arguments...)
    If X >= 0 And X <= (lblBonjour.Width / 2) Then
        lblBonjour.ForeColor = vbRed
    ElseIf X > (lblBonjour.Width / 2) And X <= lblBonjour.Width Then
        lblBonjour.ForeColor = vbGreen
    End If
End Sub

Attention :
Tapez ElseIf en un seul mot.

Enregistrez votre projet et démarrez le (F5) pour voir l'effet des deux couleurs. Amusant, non?

Page précédente - Page suivante