ToggleButton : Couleur Texte

[JORDAN]

Bonjour le Forum,

Avec le code suivant, j'arrive à changer le
texte de mon ToggleButton mais par contre la
couleur du texte reste noir.

Comment doit-on faire ?

Merci.

Private Sub ToggleButton1_Change()

    If ToggleButton1.Value = True Then
        ToggleButton1.ForeColor = 6
        ToggleButton1.Caption = 'Rechercher une commande en cours'
    ElseIf ToggleButton1.Value = False Then
        ToggleButton1.ForeColor = 12
        ToggleButton1.Caption = 'Enregistrer une nouvelle commande'

    End If
    
End Sub

 

[dg62]

Bonjour Jordan

Private Sub ToggleButton1_Change()

    If ToggleButton1.Value = True Then
        ToggleButton1.ForeColor = &H0& 'noir
        ToggleButton1.Caption = 'Rechercher une commande en cours'
    ElseIf ToggleButton1.Value = False Then
        ToggleButton1.ForeColor = &HFF& 'rouge
        ToggleButton1.Caption = 'Enregistrer une nouvelle commande'

    End If
    
End Sub

Utilises les codes définis dans la fenêtre propriétes du toggleButton.

Message édité par: dg62, à: 06/01/2006 14:46

 

[JORDAN]

Bonjour dg62,

Merci pour ton aide, j'ai des problèmes de mémoire, j'ai utilisé ces codes il n'y a pas si longtemps avec des Combobox.

Bonne journée
A+