Couleur Police Dans ToggleButton

[MuscatMimi]

Bonjour a tout le Forum

dans ce Code de mon ToogleButton,je désire avoir la Couleur de Police dans l'intitulé "Fermer Filtrage" (Ex Bleu)
et la Couleur de fonds Jaune

mais pas sur "Filtrage"

Private Sub ToggleButton3_Click()

If ToggleButton3 Then
ToggleButton3.Caption = "Fermer Filtrage"

Else

ToggleButton3.Caption = "Filtrage"
End If

If ToggleButton3.Value Then

CommandButton10.Enabled = True 'Btn OK valid paiement
CommandButton2.Enabled = True 'Modification

Frame2.Visible = True 'Frame Filtrage
Frame1.Visible = True 'Frame Tbx

Else

CommandButton2.Enabled = False 'Modification
CommandButton10.Enabled = True
Frame2.Visible = False
'Frame1.Visible = False

Dim k As Byte
ListView1.ListItems.Clear
For k = 1 To 9 ' nombres de Cbx
Controls("Cbx" & k).Clear
Label26 = ""
Lbl1 = ""
Lbl2 = ""
Lbl3 = ""

Next

UserForm_Initialize

End If
End Sub

 

[Hulk]

Re : Couleur Police Dans ToggleButton

Re, Vaucluse et tous,

Si j'ai bien compris, modifies ton premier If comme ci-dessous, peut-être ça te convient...

If ToggleButton3 Then
ToggleButton3.Caption = "Fermer Filtrage"
ToggleButton3.ForeColor = RGB(255, 255, 0) 'Police jaune
ToggleButton3.BackColor = RGB(0, 0, 255) 'Fond bleu
Else
ToggleButton3.Caption = "Filtrage"
ToggleButton3.ForeColor = &H80000012 'Police noire
ToggleButton3.BackColor = &H8000000F 'Fond gris
End If

Mais attention lorsque le ToggleButton est True (enfoncé), pas facile de lire la caption avec la couleur... c'est pas top !

Cdt, Hulk.

 

[MuscatMimi]

Re : Couleur Police Dans ToggleButton

Salut, disont re

Merci a nouveau, pour ta réponse
mais a force de chercher, suis juste arrivé a trouvé,presque en même temps
que ta réponse
Et tu a raison si je met BackColor, on ne vois presque pas le Caption
mais ça faisait une heure que je cherchais

cordialement
Bon we