Boite de dialogue

[tigroo]

Bonjour à tous! 🙂
Alors voilà j'ai une colle pour vous ! lol
je souhaiterais modifier la couleur d'un bouton dans une boite de dialogue lorsque je le séléctionne!
'un peu comme dans les ascenceurs : le bouton s'allume lorsqu'on appuis dessus!
Est-ce possible????

Merci à tous!
😉

 

[WILFRIED]

Salut,

Si tu crée ta propre boite de dialogue cela est faisable :

Private Sub bt_valider_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
bt_valider.BackColor = RGB(255, 0, 0)
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
bt_valider.BackColor = -2147483633
End Sub

-2147483633 est la couleur par défaut d'un boutons.

Il existe peut être une méthode plus simple mais comme ça je ne voit pas.

A+ Will ;op

 

[Abel]

Bonjour tigroo, Wilfried,

J'aivais trouvé ça :

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 16711680
MsgBox 'Comment trouvez vous la couleur ? Arf !'
CommandButton1.BackColor = 49152
End Sub

On peut en profiter pour jouer avec toutes les propriétés du bouton avec
With CommandButton1
.BackColor =
.FontColor =
etc
End With

Bon, c'est une solution comme une autre.

N'agit que si l'on s'en sert. Arf !
C'est à dire, que si on clique sur le bouton.

Abel.

 

[WILFRIED]

Salut Abel, le forum

Effectivement je n'est pas penser à l'option click qui permet de simplifier mon code qui necessite deux déclaration pour une action..

En faite tous dépend du besoin.

Mais dit moi, comment à tu trouver les valeurs de couleur car moi je me prend toujours le tête avec RGB(Red,Green,Blue) pour définir mes choix donc si l'on personnalise sont windows on à toujours mes couleurs ....

A+ Will ;op

 

[Abel]

Re,

Wilfried :

Ben ...

J'édite les propriétés du bouton. Je mets une couleur à l'aide de la fenêtre des propriétés puis je fais une petite ligne de code avec 'Msgbox CommandButton1.BackClor', un petit coup de F8 (fonctionnement pas à pas, pour ceux qui ne connaissent pas) et hop !, il me donne le numéro de couleur.

A+

Abel.

 

[WILFRIED]

Re-

Effectivement c''est une méthode.... je l'utilise pour d'autre besoin mais la trouvant longue je me demandais si quelqu'un n'aurai pas fait un relever un jour des différentes possibilités de couleurs et qui l'aurait poster un jours.... et bien sur que tu avait le résultat..

Tant pis..

Merci Abel

A+ will ;op

 

[tigroo]

Merci à tous les deux pour vos réponse 🙂
mais comment je peux faire pour retrouver une couleur bien précise?
MEEERci 😉

 

[MichelXld]

bonjour Tigroo , Wilfried et Abel

dans ce lien tu trouveras un exemple pour afficher les codes couleurs avec les equivalences RGB , HEX et LONG

Lien supprimé


bon apres midi
MichelXld

 

[WILFRIED]

Salut MichelXld

Merci beaucoup pour cette petit application que je vais m'emprésser de lier à un bouton de ma barre des taches macro.

J'ai vu que tu utilisait des API, est ce la même chose que pour VB ou pas ??

A+ wilfried;op

 

[Abel]

Re,

Je vais gagner du temps ....

Arf !

Merci Michel.


Abel.

 

[MichelXld]

rebonjour Wilfried et Abel

merci pour vos messages

Wilfried , oui ce sont les memes APIs qu'en VB . d'ailleurs dans le fichier tu trouveras un lien vers la démo originale (en VB ) , d'Arthur Liberman



bonne soirée
MichelXld

 

[tigroo]

ok merci ++