Discussion :

[taly]

bonjour,

j'ai repris ce script du tutoriel proposé sur développez.com :
Comment faire une barre de progression ?

ça a l'air simple mais ma progressbar ne fonctionne pas.

pouvez-vous me dire s'il manque quelque chose ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
ProgressBar1.min = 0
ProgressBar1.max = 100
ProgressBar1.Value = 0
Timer1.Interval = 200
End Sub
 
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.max Then Timer1.Enabled = False
End Sub

merci
taly