Code pour animer un textBox

Résolu
cs_GigaCool
Messages postés
43
Date d'inscription
mardi 10 avril 2007
Statut
Membre
Dernière intervention
15 décembre 2008
- 2 mai 2007 à 16:00
cs_GigaCool
Messages postés
43
Date d'inscription
mardi 10 avril 2007
Statut
Membre
Dernière intervention
15 décembre 2008
- 2 mai 2007 à 16:38
Bonjour ,
Quelqu'un pourait il m'aider à m'ensortir car j'y arrive pas!
J'ai un textBox à qui je veux attribuer des valeurs différentes à  chaque minute après un temps.
mais le problème est que cela m'affiche le dernier résultat ! Help please ....

Voici mon code :

For i = 1 To 9
' affiche pendant une minute
    For j = 1 To 60000
    Me.Texte44 = temp(i) ' temp contient le texte que je veux afficher
    Next 
'Affiche vierge pendant 2 secondes
    For k = 1 to 2000 
    Me.texte44 = ""
    Next
Next

3 réponses

jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
2 mai 2007 à 16:12
Il me semble que hier encore, j'ai répondu à ce genre de question (pour un label déroulant)...
Utilise donc la fonction Timer et anime, ma foi !
3
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
2 mai 2007 à 16:24
Salut,

Et oui, voici le lien ou Jmfmarques à fait un bout de code...

A+
Exploreur

 
3
cs_GigaCool
Messages postés
43
Date d'inscription
mardi 10 avril 2007
Statut
Membre
Dernière intervention
15 décembre 2008

2 mai 2007 à 16:38
Merci à tous j'accepte toutes vos réponses et le plus facile pour moi c'est le code avec la fonction Timer . Voici finalement ce code qui repond à mes préoccupation !


merci

For i = 1 To 9
Me.Texte44 = temp(i)
If Me.Texte44 = "" Then
lg = 2 ' attendre 2 secondes
Else
lg = 60 ' attendre 60 secondes
End If
Start = Timer
Do While Timer < Start + lg
DoEvents
Loop
Next
3