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)
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