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

Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
- - Dernière réponse : Khahazad
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
- 24 mai 2006 à 18:22
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 !
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
2116
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
23 septembre 2018
1
3
Merci
Utilise DoEvents apres avoir attribué le texte pour laisser le contrôle à la feuille (rafraichissement de l'affichage).

[;)] Flachy Joe [;)]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 129 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Flachy Joe
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
15
0
Merci
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
Commenter la réponse de crenaud76
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
0
Merci
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 !
Commenter la réponse de Khahazad