survol de la souris sur des labels (usf)

pascal21 · 15 Novembre 2008

Code:

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 · 15 Novembre 2008

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

Code:

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 · 15 Novembre 2008

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 · 15 Novembre 2008

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

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

Code:

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

survol de la souris sur des labels (usf)

pascal21

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Discussions similaires

survol de la souris sur des labels (usf)

pascal21

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency