Re: ProgressBar

[antoine cretaux <antoine at cretaux dot com>]

Désolé mais j'ai essayé

  Monticks = ticks+60
  Winspecteur.progressBar1.maximum = len(Contenuprojet)
  while cpt <> 0
    LeCode.append nthField(st1,"@%",1)
    St1 = lecturemultiple(ContenuProjet,"<SourceLine>",Cpt)
    Cpt = val(nthField(st1,"@%",2))

    If MonTicks < Ticks Then
      MonTicks = Ticks() + 60
      Winspecteur.progressBar1.value = cpt
    End if
  wend

Et ma barre n'est pas modifiée, J'ai également essayé un timer même  
résultat