Discussion :

[hadjchaibahmed]

BONJOUR A TOUS
J'AI UN PROBLÈME A RÉSOUDRE SVP AIDEZ MOI
J'AI 1 TEXTBOX "TEXT1 " JE VEUX QUE LORSQUE J’ÉCRIS SUR CE TEXTBOX PAR EXEMPLE "UN CHIFFRE "
SON BACKCOLOR PREND UNE COULEUR
PAR EXEMPLE "0"COULEUR BLEUE
"1"COULEUR ROUGE
"3"COULEUR VERTE AINSI DE SUITE SACHANT QUE Text1.MaxLength = 10
merci d'avance

[MADA BLACK]

Bonjour
Peut etre c'est la bonne solution mais vous pouvez essayez avec ce fichier ci dessous et vous pouvez egalement ajouter des autres couleurs jusqu'a 10
Cordialement
MADA BLACK
couleur text.zip

[l_autodidacte]

S'il s'agit de l'arrière-plan du caractère entré, cela me semble non disponible pour un TextBox.

Si la couleur demandée est celle de tout l'arrière-plan en fonction du chiffre entré, il est possible de le faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Text1_KeyPress(KeyAscii As Integer)
    ' => KeyAscii - 46   c'est pour éviter que le texte et le fond aient la même couleur
   If KeyAscii >= 48 And KeyAscii <= 57 Then Text1.BackColor = QBColor(KeyAscii - 46)
End Sub

Si on veut changer la couleur de chaque caractère du texte(ou nombre), le contrôle qui répondrait à ta demande serait RichTextBox(fichier richtx32.ocx)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
     RichTextBox1.MaxLength = 10
     RichTextBox1.Font.Size = 14
     RichTextBox1.Font.Bold = True
     RichTextBox1.SelAlignment = rtfCenter
End Sub
 
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
  If KeyAscii >= 48 And KeyAscii <= 57 Then RichTextBox1.SelColor = QBColor(KeyAscii - 48)
End Sub