Private Sub EnvoieProgression(ByVal Pourcent As Integer) progressBar1.Value = Pourcent End Sub Private Sub CalculLong() For i As Integer = 0 To 99 'on compte jusqu'à cent avec des pauses de 100ms Thread.Sleep(100) 'on envoie la progression EnvoieProgression(i) Next i End Sub
Private Sub EnvoieProgression(ByVal Pourcent As Integer) Dispatcher.CurrentDispatcher.BeginInvoke(New Action(Sub() progressBar1.Value = Pourcent)) End Sub Private Sub CalculLong() For i As Integer = 0 To 99 'on compte jusqu'à cent avec des pauses de 100ms Thread.Sleep(100) 'on envoie la progression EnvoieProgression(i) Next i End Sub
et comme l'a suggéré Whismeril j'ajoute des Thread.Sleep(100) pour que le changement soit visible dans la progressBar, heu non je l'ai mis dans mon exemple pour ralentir la boucle sinon compter jusqu'à 100 est si rapide que tu n'aurais pas vu la barre avancer.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question