Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour a tous et a toutes
SVP gentelman ..
Si vous pouvez m'aider a realiser ce reve ..
J'ai un Form1 et 3 Labels ..
Est ce qu'on peut changer les couleurs du text du 3 Labels avec un Timer pendant 30 secondes ou une minute
Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[l_autodidacte]

Teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Timer1_Timer()
    Static K%
    Dim TB&(0 To 4)
      TB(0) = vbRed: TB(1) = vbBlue: TB(2) = vbYellow: TB(3) = vbGreen: TB(4) = vbMagenta
      Timer1.Interval = 30000 ' 30 secondes
        Label1.ForeColor = TB(K)
        If K < UBound(TB) Then
           K = K + 1
        Else
           K = 0
        End If
End Sub

[MADA BLACK]

Bonjour L'AUTODIDACTE
Merci 1000 fois pour ce super et impeccable code
C'est vraiment ce que je veux voir et avoir
C'est parfaitement resolu
Cordialement
MADA BLACK