Afficher un texte entre 2 boucles do loop [Résolu]

Signaler
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
-
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
-
Boujour a tous!

Tout d'abord LE CONTEXT :
Je travail sur un ordi relié à un automate.
Je lance une commande de mouvement, je test si le mouvement est fini, je passe au mouvement suivant. (pas de mouvement simultané)

Je voudrai pendant le mouvement afficher "mouvement X en cours" et puis "mouvement X fini".

Pour ca je passe par des boucles do loop qui regardent une variable qui indique le mouvement ou l'arret.

MON PORBLEME : Le texte entre chaque action ne s'affiche que l'orsque toute les actions sont terminées.

J'ai fait un exemple:
'les textes box s'affichent quand tout est fini
' au lieu d'arriver une par une.

Private Sub Command1_Click()
I = 0
Do
I = I + 1
Text1.Text = "boucle 1 en cour"
If I = 10000 Then Exit Do
Loop
Text2.Text = "boucle 1 finie"
I = 0
Do
I = I + 1
Text3.Text = "boucle 2 en cour"
If I = 10000 Then Exit Do
Loop
Text4.Text = "boucle 2 finie"
End Sub


Si vous voyez ce qu'il faut changer dans mon code ou par quoi le remplacer... Cela semble pourtant tres simple.

Merci d'avance !

3 réponses

Messages postés
2083
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
15 octobre 2020
1
Utilise DoEvents apres avoir attribué le texte pour laisser le contrôle à la feuille (rafraichissement de l'affichage).

[;)] Flachy Joe [;)]
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
26
Et de deux pour aujourd'hui !! Il faut que tu mettes une isntruction DoEvents dans tes boucle Do ... Loop^, afin de laisser à VB6 l'occasion de traiter les messages Windows, et de repeindre les fenêtres ...

CR
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006

Ok
je suis desolé je n'ai pas trouve d'endroit ou c'etait expliqué.
(en fait je ne savais pas quels mots me permettaient de faire une recherche precise)

merci d'avoir ete si rapide !