Bonjour
Je désire montrer des labels lorsque je passe le curseur de la souris sur
label1.
cela fonctionne très bien, mais je souhaite que lorsque le curseur quitte le
label1, les labels redeviennent invisibles.
Merci beaucoup
Flo riant
Private Sub Label1_MouseMove.....
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J-Dan
bonjour Floriant,
il suffit de demander que lorsque ton curseur repasse sur le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False
bon courage
-----Message d'origine----- Bonjour Je désire montrer des labels lorsque je passe le curseur de la souris sur
label1. cela fonctionne très bien, mais je souhaite que lorsque le curseur quitte le
label1, les labels redeviennent invisibles. Merci beaucoup Flo riant
Private Sub Label1_MouseMove..... Label2.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True End Sub
.
bonjour Floriant,
il suffit de demander que lorsque ton curseur repasse sur
le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
bon courage
-----Message d'origine-----
Bonjour
Je désire montrer des labels lorsque je passe le curseur
de la souris sur
label1.
cela fonctionne très bien, mais je souhaite que lorsque
le curseur quitte le
label1, les labels redeviennent invisibles.
Merci beaucoup
Flo riant
Private Sub Label1_MouseMove.....
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
End Sub
il suffit de demander que lorsque ton curseur repasse sur le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False
bon courage
-----Message d'origine----- Bonjour Je désire montrer des labels lorsque je passe le curseur de la souris sur
label1. cela fonctionne très bien, mais je souhaite que lorsque le curseur quitte le
label1, les labels redeviennent invisibles. Merci beaucoup Flo riant
Private Sub Label1_MouseMove..... Label2.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True End Sub
.
Florian
Salut J-Dan, c'est une très bonne idée. Merci beaucoup Flo riant
"J-Dan" a écrit dans le message de news:2f2ff01c46bfc$90aa3160$ bonjour Floriant,
il suffit de demander que lorsque ton curseur repasse sur le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False
bon courage
-----Message d'origine----- Bonjour Je désire montrer des labels lorsque je passe le curseur de la souris sur
label1. cela fonctionne très bien, mais je souhaite que lorsque le curseur quitte le
label1, les labels redeviennent invisibles. Merci beaucoup Flo riant
Private Sub Label1_MouseMove..... Label2.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True End Sub
.
Salut J-Dan, c'est une très bonne idée.
Merci beaucoup
Flo riant
"J-Dan" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2f2ff01c46bfc$90aa3160$a301280a@phx.gbl...
bonjour Floriant,
il suffit de demander que lorsque ton curseur repasse sur
le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
bon courage
-----Message d'origine-----
Bonjour
Je désire montrer des labels lorsque je passe le curseur
de la souris sur
label1.
cela fonctionne très bien, mais je souhaite que lorsque
le curseur quitte le
label1, les labels redeviennent invisibles.
Merci beaucoup
Flo riant
Private Sub Label1_MouseMove.....
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
End Sub
Salut J-Dan, c'est une très bonne idée. Merci beaucoup Flo riant
"J-Dan" a écrit dans le message de news:2f2ff01c46bfc$90aa3160$ bonjour Floriant,
il suffit de demander que lorsque ton curseur repasse sur le UserForm tes labels soient invisibles.
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False
bon courage
-----Message d'origine----- Bonjour Je désire montrer des labels lorsque je passe le curseur de la souris sur
label1. cela fonctionne très bien, mais je souhaite que lorsque le curseur quitte le
label1, les labels redeviennent invisibles. Merci beaucoup Flo riant
Private Sub Label1_MouseMove..... Label2.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True End Sub
