Z
zeltron
Guest
Bonjour à tout le Forum,
Le code suivant de Thierry,permet de faire apparaitre un label lorsque la souris passe sur un commandbutton:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub
Private Sub CommandButton1_Click()
Me.Shapes('TipText').Visible = False
End Sub
J'ai voulu adapter cela pour l'appliquer au passage de la souris sur une image.
J'ai essayé cela:
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub
Private Sub Image1_Click()
Me.Shapes('TipText').Visible = False
End Sub
Mais cela ne fonctionne pas, que le code soit dans la feuille concernée ou dans un module.
Cela est il lié au fait que MouseMove sur une image n'est pas possible?
Sinon,en quoi mon code adapté est il erroné?
Merci d'avance pour votre aide
Cordialement
Zeltron
Le code suivant de Thierry,permet de faire apparaitre un label lorsque la souris passe sur un commandbutton:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub
Private Sub CommandButton1_Click()
Me.Shapes('TipText').Visible = False
End Sub
J'ai voulu adapter cela pour l'appliquer au passage de la souris sur une image.
J'ai essayé cela:
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub
Private Sub Image1_Click()
Me.Shapes('TipText').Visible = False
End Sub
Mais cela ne fonctionne pas, que le code soit dans la feuille concernée ou dans un module.
Cela est il lié au fait que MouseMove sur une image n'est pas possible?
Sinon,en quoi mon code adapté est il erroné?
Merci d'avance pour votre aide
Cordialement
Zeltron