ProgressBar

Signaler
Messages postés
63
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
17 janvier 2007
-
Messages postés
244
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2013
-
Bonjour à tous,

Quelqu'un sait comment utiliser la ProgressBar? Je ne comprends pas comment ca fonctionne...Pouvez vous me faire un exemple pour la lier au début et à la fin d'une tache?

Merci beaucoup les copains.

3 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Lut,

As tu essayer d'entrer "Progress bar" dans le moteur de recherche.

Je crois qu il y a des exemples.

@+
Julien
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Salut,



Un petit rappel en passant : Une progressbar ne fait que de l'affichage. Elle ne fait rien progresser...




With ProgressBar1

' Une progressBar dont les valeurs s'echelonneront entre 0 et 100000

.Min = 0

.Max = 100000 (par exemple)

End With







For k=1 to 100000

ProgressBar1.Value = k

' Une action ici à répéter 100000 fois.

' blabla ...

' Un p'tit rafraichissement de la progressbar :

DoEvents

Next k




Manu
Messages postés
244
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2013

Autre Methode, avec un timer...

Private Sub Form3Load(sender As System.Object, e As System.EventArgs)
Timer1.Interval = 90
Timer1.Start()
instant0 = 0
Dim SW As New StreamWriter("wait.txt")
Dim instant0 As String
instant0 = 0
SW.WriteLine(instant0)
SW.Close
End Sub

Private Sub Timer1Tick(sender As System.Object, e As System.EventArgs)
Dim SR As New streamReader("wait.txt")
Dim instant As String
instant = SR.ReadLine()
SR.Close()

If instant=100 Then
timer1.Stop()
End If

progressbar1.Value=instant

Dim instant2 As String
Dim SW As New StreamWriter("wait.ccr")
instant2 = instant+1
SW.WriteLine(instant2)
SW.Close


End Sub