Discussion :

[levasseur62]

Bonjour,

J'ai un timer , une textbox dans laquelle se trouve un chiffre, qui varie en fonction du temps;le chiffre dans la textbox peut être égale de 1 à 9 ;j'aimerais savoir si on peut changer de couleur par chiffre dans la textbox, par exemple quand textbox1= 2 le numéro vert ,quand textbox=3

le numéro est rouge ...

Merci d'avance

[SfJ5Rpw8]

il faut changer la propriété BacKcolor de ton text box :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Text1_Change()
    Select Case Text1.Text
        Case 2
            Text1.BackColor = vbGreen
        Case 3
            Text1.BackColor = vbRed
        Case Else
            Text1.BackColor = vbWhite
    End Select
End Sub

[ProgElecT]

Si chiffre = 2 alors ForeColor = vert
Si chiffre = 3 alors ForeColor = rouge
Si chiffre = 4 alors ForeColor = ???

[SfJ5Rpw8]

Ou plutôt ForeColor comme dit ProgElect s'il s'agit du texte et pas du fond de la text box ...


@ProgElect : Salut , ... un petit croisement ..

[levasseur62]

réponse rapide est efficace ,

[louisnmo2011]

Bonjour,
Et si on a plusieurs cas, par exemple le prof nous a demandé de changer la couleur à chaques secondes? Comment procéder? Et merci d'avance.

[ProgElecT]

Salut, bienvenue sur DVP

Utilises un Timer séquencé à 1Sc, créer une variable compteur, une variable tableau de type long de x indices, chacune contenant le chiffre correspondant à une couleur.
Dans la sub Timer1_Timer() incrémenter la variable compteur, modifier la couleur en affectant la propriété ForeColor ou BackColor du TextBox avec la variable tableau d'indice compteur.
Ce qui donne un code du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Dim Cpt As Integer
Dim LaCouleur() As Long
Dim NbrMaxiCouleur As Integer
 
Private Sub Form_Load()
Cpt = -1
NbrMaxiCouleur = 4
ReDim LaCouleur(NbrMaxiCouleur - 1)
LaCouleur(0) = vbGreen
LaCouleur(1) = vbRed
LaCouleur(2) = vbBlue
LaCouleur(3) = vbBlack
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
Cpt = Cpt + 1
If Cpt = NbrMaxiCouleur Then Cpt = 0
Text1.ForeColor = LaCouleur(Cpt)
End Sub