liocifer
Messages postés33Date d'inscriptionmercredi 15 mars 2006StatutMembreDernière intervention 5 mars 2010
-
8 févr. 2010 à 17:37
liocifer
Messages postés33Date d'inscriptionmercredi 15 mars 2006StatutMembreDernière intervention 5 mars 2010
-
9 févr. 2010 à 22:31
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.
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 ?
PCPT
Messages postés13280Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201848 8 févr. 2010 à 17:48
salut,
tu boucles à chaque TICK, ils sont donc tous affichés mais tu ne vois que le dernier, normal
il faut "compter" où tu en es, et afficher le mot à cette position
ce qui devrait ressembler à ceci :
Private Sub Timer1_Timer()
const iIndex as integer
Text1.Text = choose(iindex,"BREST", "MORLAIX", "QUIMPER", "ST-BRIEUC")
iindex=iindex+1
if iindex=4 then iindex=0
End Sub
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018219 9 févr. 2010 à 07:11
Bonjour,
const à remplacer par Static.
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est