changement de couleur

[justine]

bonsoir le forum
en fouillant le forum pour trouver mon bonheur, j'ai obtenu une partie de la reponse.
comment changer de couleur un bouton au passage de la souris?.
j'ai trouvé ce code:
Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HC0FFFF
End Sub
mais, la couleur reste a &hc0ffff quand la souris quitte le bouton.
comment annuler le changement de couleur des que la souris n'est plus dessus?
merci

 

[justine]

bonsoir jmps, le forum
mon bouton est placé dans un usf
mais je ne vois pas comment jouer, j'ai essayé avec une gestion d'erreur mais le neant.
si quelqu'un a une idee, moi je cherche, si je trouve, je place l'exemple en fichier joint, peut etre que cela interressera quelqu'un.
justine

 

[Eric C]

Bonsoir le forum
Bonsoir Justine, bonsoir José

Un exemple bricolé vite mais bien fait sans les backcolors orthodoxes.

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

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = vbGreen
End Sub

Bonne fin de dimanche à toutes & à tous

Toujours aussi rapide mon ami José - Bécot sur tin front mon ami

Message édité par: Eric C, à: 05/02/2006 18:37

 

[Eric C]

Re le forum
Re bonsoir José

Tiens je vais allé me connecter sur le T'chat. Plus personne n'y vient... c'est le désert ..

 

[justine]

bonsoir le forum, jmps, eric c
en effet, l'idee n'est pas bete, mais comment n'y ai je pas pensé .
merci encore a vous deux

 

[pierrejean]

bonsoir tous

une autre methode basée sur les valeurs X et Y
(bouton avec heigt=50 et width=100) [file name=justineb.zip size=7027]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/justineb.zip[/file]

 

[justine]

bonsoir pierrejean
je te remercie pour ton astuce
justine