Discussion :

[casefayere]

Bonjour à tous,

J'ai installé un(e) progressbar (v5 sp2) dans un usf et je n'arrive pas à la controler
Voici le code que j'ai récupéré :

Code :

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

1
2
3
4
Dim i
For i = 1 To 10000
ProgressBar1 = i / 100
Next i

S'il est bon, ou le mettre

Merci de vos réponses

[Singular]

Le code n'est pas très parlant de lui-même et il n'est pas bon. Il lui manque beaucoup de code, le code de la täche qui s'accomplit. Un ProgressBar sert à indiquer la progression d'une 'longue' tâche.

Une boucle For implique une variable incrémentée, i par exemple. À chaque itération, elle s'incrémente. Tu la divise par la limite supérieure de la boucle (10000, dans ton exemple) et tu attribues le résultat à ta barre, dans le code de la boucle que tu exécutes.

La ProgressBar ne convient pas aux boucles de type While ou Do (While/Until) car, en général, on ne sait pas d'avance le nombre d'itérations de la boucle.

[casefayere]

Re-bonjour,

J'ai résolu mon problème autrement et je me pencherai sur cette question plus tard.

En résumé, j'ai incrémenté manuellement la progressbar à divers stades de la procédure

Merci beaucoup quand même

à +