PROGRESS BAR
LucTheBosss
Messages postés
1
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2002
-
6 janv. 2002 à 11:11
fou volant13 Messages postés 55 Date d'inscription vendredi 29 juin 2001 Statut Membre Dernière intervention 2 février 2002 - 6 janv. 2002 à 12:10
fou volant13 Messages postés 55 Date d'inscription vendredi 29 juin 2001 Statut Membre Dernière intervention 2 février 2002 - 6 janv. 2002 à 12:10
1 réponse
fou volant13
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002
6 janv. 2002 à 12:10
6 janv. 2002 à 12:10
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:
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
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 = ValeurDuProgressBarIf 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
