Discussion :

[jbs68]

Bonjour à tous,

Mon problème: dans un Form, une zone de texte (label) me tient informée de l'avancement du traitement.
Ceci est couplé à une barre de progression sur le même Form.
La barre de progression fonctionne bien alors que le texte dans le label ne se met pas en jour en cours de traitement mais seulement à la fin (si j'execute le code pas à pas, cela fonctionne !)

Exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        ...
        LB_Info = vbNullString    ' <-- le label devrait se mettre à jour ici !!
        AnimeProgressBar(INIT_PROGRESS_BAR, , TabBlocDossier.Length)
        For Id = UBound(TabBlocDossier) To 0 Step -1
            AnimeProgressBar(, , TabBlocDossier.Length)
            WriteOctets(TabData, ConvDec2Hex(TabBlocDossier.Length - Id - 2))
            WriteOctets(TabData, ConvDec2Hex(TabBlocDossier(Id).LgNomSrc))
            WriteString(TabData, TabBlocDossier(Id).NomSrc)
            WriteOctets(TabData, ConvDec2Hex(TabBlocDossier(Id).LgNomDst))
            WriteString(TabData, TabBlocDossier(Id).NomDst)
        Next Id
        AnimeProgressBar(ERASE_PROGRESS_BAR)
        ...

Si vous avez une idée.......
En VBA (Excel) j'avais le même pb, j'avais rajouté un "Application.Wait (Now + TimeValue("00:00:01"))" pour palier au problème.. Mais cela n'est pas très pro !!

Merci par avance !

[asmduty]

Essaye de faire un Update de ton controle après la mise à jour du texte de ton label.

TonLabel.Update ou TaForm.Update ou TonPanelQuiContientLeLabel etc.

ça devrait fonctionner

[jbs68]

Essaye de faire un Update de ton controle après la mise à jour du texte de ton label.

TonLabel.Update ou TaForm.Update ou TonPanelQuiContientLeLabel etc.

ça devrait fonctionner

Trop facile !!!!! Merci beaucoup !!!