survol de la souris sur des labels (usf)

[pascal21]

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
Label2.Visible = False

bonsoir
j'aimerais faire un effet avec deux labels surperposés l'un sur l'autre
lorsque je passe la souris sur le label2,celui-ci disparait pour laisser visible le label1
ça fonctionne mais pas entièrement comme je le souhaiterais
j'aimerais que si la souris quitte le survol du label2, celui-ci redevienne visible
ps je me sers des labels comme commandbutton
comment faire
merci

 

[kjin]

Re : survol de la souris sur des labels (usf)

Bonsoir,
Peut-être comme ceci, si label1 est sous label2 et que tu masques label2 au survol de la souris

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Visible = IIf(Label2.Visible, False, True)
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Visible = True
End Sub

A+
kjin

 

[pascal21]

Re : survol de la souris sur des labels (usf)

bonsoir kjin
merci, c'est ce que je voulais,je n'aurais pas trouvé ça tout seul
bonne soirée

 

[kjin]

Re : survol de la souris sur des labels (usf)

Re,
En fait tu peux même enlever la condition sur label2 et écrire directement

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Visible =  False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.Visible = True
End Sub

A trop vouloir vérifier....🙄
A+
kjin