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

[murlock]

Timer1.enable = true peut être ?

[taly]

non je viens de tester ça ne marche toujours pas...

par hasard, faut-il installer des composants particuliers pour pouvoir utiliser la progressbar ?

[taly]

pas d'idées... ?

[Nico-xs]

Code :

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

Timer1.Start()

Pour demarrer le timer

Et change ce code

Code :

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

1
2
3
4
 Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= ProgressBar1.max Then Timer1.Enabled = False
End Sub

Par

Code :

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

1
2
3
4
5
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value >= ProgressBar1.max Then Timer1.Enabled = False
    End Sub

[taly]

merci Nico-xs pour ton idée mais ça ne fonctionne toujours pas : la progressbar ne bouge pas d'un pouce...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
    Private Sub Form_Load()
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        Timer1.Start()
        Timer1.Interval = 200
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value >= ProgressBar1.Maximum Then
            Timer1.Enabled = False
        End If
    End Sub
End Class