Tutoriel : Événements Souris

page 7 : Pour boutons gauches seulement...

Nous voulons donc que le texte ne devienne bleu qu'avec le bouton gauche et qu'il le reste si on glisse la souris dessus (bouton enfoncé).

Occupons nous d'abord du bouton gauche. Ajoutez ceci à la procédure MouseDown (caractères gras) :

Private Sub lblBonjour_MouseDown(arguments...)
    If Button = 1 Then
        lblBonjour.ForeColor = vbBlue
    End If
End Sub

Valeurs possibles pour l'argument Button
Valeur Description
0 Aucun
1 Gauche
2 Droite
4 Milieu
Celui-ci ne fonctionne pas avec tous les modèles de souris. Cette valeur est donc à éviter.

Maintenant, occupons nous du texte qui ne reste pas bleu. Dans la procédure lblBonjour_MouseMove, ajoutez ceci (caractères gras) :

Private Sub lblBonjour_MouseMove(arguments...)
    If Button = 0 Or Button = 2 Then
        ¦********************************¦
        ¦Le code que vous aviez déjà tapé¦
        ¦********************************¦
    ElseIf Button = 1 Then
        lblBonjour.ForeColor = vbBlue
    End If
End Sub

Enregistrez le projet et démarrez l'application. Qu'observez-vous?

Page précédente - Page suivante