ProgressBar et Boucle

Version imprimable

Bonjour,
Je code sous Microsoft Visual Basic 2010 Express.
J'ai un bouton a cliquez et je voudrais que ma ProgressBar charge trois ou cinq fois et s’arrête quand je clique sur le bouton.
J'ai tout essayé mais rien n'y fait. Elle se charge et s'arrête. Je ne vois pas je me suis raté.
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ProgressBar1 As Integer
        For ProgressBar1 = 1 To 100
            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
            System.Threading.Thread.Sleep(50)  
        Next
        Me.ProgressBar1.Value = 0
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub PictureBox1(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Timer1_Disposed(sender As Object, e As System.EventArgs)
 
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
        Dim ProgressBar1 As Integer
        For ProgressBar1 = 1 To 100 
            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
            System.Threading.Thread.Sleep(50) 
        Next
        Me.ProgressBar1.Value = 0
        End Class

Citation:

Envoyé par deathstroke

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ProgressBar1 As Integer
        For ProgressBar1 = 1 To 100
            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
            System.Threading.Thread.Sleep(50)  
        Next
        Me.ProgressBar1.Value = 0
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub PictureBox1(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Timer1_Disposed(sender As Object, e As System.EventArgs)
 
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
        Dim ProgressBar1 As Integer
        For ProgressBar1 = 1 To 100 
            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
            System.Threading.Thread.Sleep(50) 
        Next
        Me.ProgressBar1.Value = 0
        End Class

et si t'essaye de l’arrêté a 99% :mouarf:

11/08/2014, 14h29
deathstroke

Ouh la la déjà que j'arrive même pas a la faire recommencer alors après je vais devenir zinzin :mouarf::mouarf::mouarf:

Pour la boucle, je ferai plutôt un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
    Dim nb_fois_boucle As Integer = 5
        Dim valeur_progressbar As Integer = 0
 
        For i = 1 To nb_fois_boucle
            For j = 0 To 100
                Me.ProgressBar1.Value = j
                System.Threading.Thread.Sleep(50)
            Next
        Next

avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call boucle()
    End Sub
 
    Private Sub boucle()
        Dim nb_fois_boucle As Integer = 5
 
        For i = 1 To nb_fois_boucle
            For j = 0 To 100
                Me.ProgressBar1.Value = j
                System.Threading.Thread.Sleep(50)
            Next
        Next
    End Sub

Pour l’arrêt en cas d’appuis sur le même bounton, ce code ne marchera pas, il faudra sans toute passé par un backgroudworker ou un autre thread

16/08/2014, 21h34
linke

Code:

Pour l’arrêt en cas d’appuis sur le même bounton, ce code ne marchera pas, il faudra sans toute passé par un backgroudworker ou un autre thread

c'est sur et certain que ca marchera pas , il faut passer par backgroudworker et un bind sur la progressBar
21/08/2014, 03h05
deathstroke

Merci beaucoup de votre aide, je vais étudier vos proposition et au cas ou je n'y arrive pas je mettrais une vitesse plus réduite pour le chargement de la ProgressBar :weird:

Bonjour à tous,

En bricolant un peu tu peux tenter quelque chose dans ce genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class Form1
    Public Etat As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        If Etat = "" Or Etat = "off" Then
            Etat = "on"
            Call boucle()
        ElseIf Etat = "on" Then
            Etat = "off"
        End If
 
    End Sub
 
    Private Sub boucle()
        Dim nb_fois_boucle As Integer = 5
 
        Me.ProgressBar1.Maximum = 100
 
        For i = 1 To nb_fois_boucle
            For j = 0 To 100
                Application.DoEvents()
                If Etat = "on" Then
                    Me.ProgressBar1.Value = j
                    System.Threading.Thread.Sleep(50)
                Else
                    Me.ProgressBar1.Value = 0
                    Exit Sub
                End If
            Next
        Next
    End Sub
End Class

On définit une variable publique à laquelle on attribue une valeur (ici "on" quand appuie une fois et "off" quand on appuie à nouveau). Puis dans la boucle de la progressbar on vérifie si la valeur de la variable répond au critère que l'on donne, sinon on sort du sub. En cas de besoin on peut aussi remplacer le Exit Sub par un GoTo ...

En espérant avoir aidé,

Vincent.