l'événement qui quitte le contrôle frame ou textbox ou label, le contraire MouseMove

[dindin]

Bonjour
je sais qu'il existe un événement qui s'appelle "MouseMove" c'est à dire survol avec la souris un contrôle .
Existe -il un autre qui fait l'événement inverse .
je m'explique :
je voulais que quand l'utilisateur survol un frame qu'il devient rouge et s'il le quitte redevient gris :

Private Sub Frame7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame7.BackColor = vbRed
End Sub

quand il ne le survol plus

Frame7.BackColor = &H404040

merci d'avance

 

[Pierrot93]

Re : l'événement qui quitte le contrôle frame ou textbox ou label, le contraire Mouse

Bonjour,

regarde ceci, à adapter :

Option Explicit
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.BackColor = vbRed
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.BackColor = vbGreen
End Sub

bonne journée
@+

 

[BOISGONTIER]

Re : l'événement qui quitte le contrôle frame ou textbox ou label, le contraire Mouse

Bonjour,

cf pj

JB

 

[dindin]

Re : l'événement qui quitte le contrôle frame ou textbox ou label, le contraire Mouse

merci , je regarde ....

 

[dindin]

Re : l'événement qui quitte le contrôle frame ou textbox ou label, le contraire Mouse

ca fonctionne merci