Afficher un texte entre 2 boucles do loop

Résolu
Khahazad
Messages postés
10
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
24 mai 2006
- 24 mai 2006 à 18:13
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 !

3 réponses

Flachy Joe
Messages postés
2095
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
11 mars 2022
1
24 mai 2006 à 18:20
Utilise DoEvents apres avoir attribué le texte pour laisser le contrôle à la feuille (rafraichissement de l'affichage).

[;)] Flachy Joe [;)]
3
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
24 mai 2006 à 18:19
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
0
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
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 !
0