Quant à ta dernière phrase, je te signale que noël est passé
et que n'est pas te rendre service que te fournir du tout cuit
For i As Integer = 1 To 100 ProgressBar1.Increment(1) Label1.Text = CStr(i) Next
Threading.Thread.Sleep(100)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Button1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
Timer1.Interval = 50
If ProgressBar1.Value = 25 Then 'A 25% la progress bar affiche le message...
Label1.Text = "VOTREMESSAGE"
End If
If ProgressBar1.Value = 50 Then 'A 50% la progress bar affiche le message...
Label1.Text = "ERROR"
End If
If ProgressBar1.Value = 100 Then 'A 100% la progress bar affiche le message...
Label1.Text = "test"
End If
End Sub
End Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() Button1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) Timer1.Interval = 50 If ProgressBar1.Value = 25 Then 'A 25% la progress bar affiche le message... Label1.Text = "25%" ElseIf ProgressBar1.Value = 50 Then 'A 50% la progress bar affiche le message... Label1.Text = "50%" ElseIf ProgressBar1.Value = 75 Then 'A 75% la progress bar affiche le message... Label1.Text = "75%" ElseIf ProgressBar1.Value = 100 Then 'A 100% la progress bar affiche le message... Label1.Text = "100%" ProgressBar1.Value = 0 Button1.Enabled = True Timer1.Stop() End If End Sub End Class