Re: Probl è me de Refresh dans une boucle

[Jacques Chanliau <jacques dot chanliau at wanadoo dot fr>]

  Dim i As Integer

  For i = 0 to 1000000

    If i mod 1000 = 1 then
      ProgressBar1.Value = i/1000
      ProgressBar1.Refresh
    End if
  Next

Ce genre de boucle fonctionne habituellement bien.

Jacques Chanliau

Le 12 févr. 07 à 17:04, Jean-Francois TORACCA a écrit :

> Bonjours,
>
> Je voudrait faire une barre de progression dans un traitement long
> (plusieurs minutes...)
>
> Mon problème est le suivant :
>
> * si je fais un refresh de ma barre à chaque boucle, le temps de  
> traitement
> s’allonge énormément.
> * si je fais un refresh de ma barre tous les 1 pourcents (par un petit
> produit en croix), ma barre de progression s’emble figée.
> * si j’utilise un Timer, l'événement “Action” ne se lance QU’APRÈS  
> la fin de
> la boucle...
>
> Si quelqu’un a une solution merci d’avance...
>
> Jean-François TORACCA