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 : 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
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