timer + sucession de mot dans un label

Bonjour,


J'ai un souci d' affichage de ville dans un label (pour le besoin d'une appli que je développe pour mon travail), dont voici l'extrait du code

Pour cet exemple j'ai juste crée un timer interval = 3000 + un Label dans lequel je veux afficher les villes (contenues dans un tableau) une à une et ceci dans un délai infini du moins jusqu'à ce que l'utilisateur quitte l'appli.

Code:

---

1 2 3 4 5 6 7

Private Sub Timer1_Timer() Dim JEdition, MyEdition JEdition = Array("BREST", "MORLAIX", "QUIMPER", "ST-BRIEUC") For i = 0 To UBound(JEdition) Text1.Text = JEdition(i) Next End Sub

---

Mon problème est le suivant :
A chaque fois que je le lance il ne m'affiche que la dernière ville.Par contre si je passe en mode debug pas à pas il m'affiche bien les villes une à une dans mon label.Quelqu'un a-t'il une idée sur mon problème d'affichage lorsque j'exécute en temps réel ?

Merci d'avance pour vos réponses.


Cordialement.

VB6 ne fait que ce que tu lui dis de faire ......

Code:

---

Text1.Text = JEdition(i)

---

L'affichage de Text1, c'est la suite de toutes tes villes ... et à toute vitesse ! Donc tu ne vois que la dernière !

Je ne sais pas ce que tu veux faire .... mais il faut refaire ton organigramme.

Ta variable i (déclarée en static) ne doit s'incrémenter qu'a chaque entrée dans

Code:

---

Sub Timer1_Timer()

---

un truc qui devrait marcher :

Code:

---

1 2 3 4 5 6

Private Sub Timer1_Timer() Static I% Text1.Text = Choose(I%+1,"BREST", "MORLAIX", "QUIMPER", "ST-BRIEUC") I%=I%+1 If I%> 4 Then I%=0 End Sub

---

Bonjour,

La même chose écrit différement

Code:

---

1 2 3 4 5

Private Sub Timer1_Timer() Static i As Integer Text1.Text = Array("BREST", "MORLAIX", "QUIMPER", "ST-BRIEUC")(i) If i > 2 Then i = 0 Else i = i + 1 End Sub

---

A+, Hervé.

Bonsoir,


Merci d'abord à tous les deux pour votre réactivité.

Pour DAUDET78 j'ai remplacé le signe < par = parce que comme il était présenté celui-ci plantait une fois passé la quatrième ville.Sinon, nickel c'est le résultat attendu.

Code:

---

1 2 3 4 5 6

Private Sub Timer1_Timer() Static I% Text1.Text = Choose(I%+1,"BREST", "MORLAIX", "QUIMPER", "ST-BRIEUC") I%=I%+1 If I% = 4 Then I%=0 End Sub

---

Merci encore.A plus tard pour d'autres questions.

Cordialement.