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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.