Ba tu met par exemple un timer avec un interval de 3000 et tu le met par défaut désactivé. Ca mettra 3 sec pour compléter la progressbar
Tu met un bouton command1, une progresbar et un timer sur ta form
Apres tu met ca:
Dim debu As Long
Dim ValeurDuProgressBar As Integer
Private Sub Command1_Click()
debu = Timer
ValeurDuProgressBar = 0
ProgressBar1.Max = 60
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ValeurDuProgressBar = ValeurDuProgressBar + 1
ProgressBar1.Value = ValeurDuProgressBar
If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False: MsgBox "progress bar a fond, remplie en " & Timer - debu & " sec": ProgressBar1.Value = 0
End Sub
|
Pour régler une durée de remplissage=durée, il faut que, progressbar.max*timer.interval (en sec)=durée
tu peux fire varier les valeurs comme tu veux, mais si l'interval du timer est trop faible, ton PC arrivera pas a aller assez vite, mais si tu met une valeur trop grosse, la bar se remplira par acoups..
Wala wala