Problème de changement de couleur avec Mousemove

Bonjour à tous,
Je cherche à faire changer de couleur mon étiquette lorsque la souris passe dessus et reprenne sa couleur initiale à la sortie de souris de la zone.

J’ai créé la procédure ci-dessous mais l’étiquette ne revient pas à sa couleur initiale lorsque la souris en est sortie.

Peut être est ce un problème de configuration générale?

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label1.BackColor = RGB(0, 0, 255)

End Sub

Bonjour,
Il aurait fallut rajouter un MouseMove sur l’userform, pour revenir à la couleur
A voir
Sergio.xlsm (20,3 Ko)

Bonjour,

Une autre méthode :

Dim survol
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If X < 6 Or X > Label1.Width - 6 Or Y < 6 Or Y > Label1.Height - 6 Then
    If survol = True Then
      survol = False
      Me.Label1.BackColor = &H8000000F
    End If
  Else
   Me.Label1.BackColor = vbRed
   survol = True
  End If
End Sub

Merci je vais essayer

Ca fonctionne super bien.

Merci

Merci pour la solution alternative mais je vais utiliser la solution plus simple de Mimimathy

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.