Oke. Zo'n progressbar die de heletijd van leeg naar vol en andersom gaat!
Je hebt nodig:
Geef de progressbar en timers geen naam tot je alles af hebt... Code:
'Bij timer1.tick: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value <= 99 Then ProgressBar1.Value = ProgressBar1.Value + 1 Else Timer2.Start() Timer1.Stop() End If End Sub
'Bij timer2.tick: Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If ProgressBar1.Value >= 1 Then ProgressBar1.Value = ProgressBar1.Value - 1 Else Timer1.Start() Timer2.Stop() End If End Sub
'En klaar ben je!
|