Public Class Form1
Private Sub Timer1_Tick (ByVal sender As System. Object, ByVal e the As System. EventArgs) Handles Timer1. Tick
ProgressBar1. Value=https://bbs.csdn.net/topics/(ProgressBar1. Value + 1) Mod 100
End Sub
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e the As System. EventArgs) Handles for. Click
Timer1. Interval=10
ProgressBar1. Maximum=100
Timer1. Start ()
End Sub
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e the As System. EventArgs) Handles Button2. Click
Timer1. Stop ()
End Sub
The End of the Class
CodePudding user response:
You try the Interval=20 or more value,CodePudding user response:
ProgressBar1. Value=https://bbs.csdn.net/topics/(ProgressBar1. Value + 1) Mod 100Why mod100?
Direct: ProgressBar1. Value=https://bbs.csdn.net/topics/ProgressBar1.Value + 1
CodePudding user response:
I means can't stop rollingCodePudding user response: