Sinsitrus
Messages postés849Date d'inscriptionsamedi 11 juin 2005StatutMembreDernière intervention21 août 2015
-
30 avril 2011 à 15:49
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
1 mai 2011 à 00:37
Salut !
Comment avec 5 Label et un timer peut-on fait afficher en un intervalle de 1000 un à un les labels svp ?
Merci
----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 30 avril 2011 à 16:32
Bah tu gères une variable qui se servira d'incrément dans l'évènement du Timer :
Dans la partie déclaration de ta page de code :
Dim monIndex As Integer
Dans l'évènement du Timer (que tu auras démarré) :
Label(monIndex).Visible = True
monIndex = monIndex + 1
If monIndex > 10 Then monTimer.Enabled = False
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 30 avril 2011 à 16:02
Salut
En indexant tes Labels et en rendant .Visible le Label dont tu incrémenteras l'index à chaque cycle de ton Timer.
Indexation des Labels (VB6 seulement, pas VBA) :
Tu crées un premier Label et tu lui mets la propriété Index à 0
Tu le copie-colle autant de fois que tu veux : Il gardera le même nom mais sont index s'incrémentera.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Sinsitrus
Messages postés849Date d'inscriptionsamedi 11 juin 2005StatutMembreDernière intervention21 août 2015 30 avril 2011 à 20:02
Merci pour ce bout de code :
Private Sub Timer1_Timer()
Dim MonIndex As Integer
Label(MonIndex).Visible = True
MonIndex = MonIndex + 1
If MonIndex > 10 Then Timer.Enabled = False
End Sub
Après une intervalle de 1000 il m'affiche le premier label(0) et stop...
L'erreur vient-elle de moi ?
Vous n’avez pas trouvé la réponse que vous recherchez ?