积极答复者
为什么ProgressBar从空白到满格的所用时间不由人控制?

问题
-
请问,我在Visual Basic 2005中输入了以下代码:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick
Timer1.Start()
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End IfEnd Sub
并且我将ProgressBar的Value值设置为5000,可为什么一调试,ProgressBar从空白到满格只用了不到1秒?
平台:Microsoft Visual Basic 2005
操作系统:Microsoft Windows Vista Premiun
全部回复
-
在循环中加一个sleep
Code SnippetPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick
Timer1.Start()
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1Threading.Thread.Sleep(1000) '表示停顿1秒
End If
End Sub
这样你就能看到进度条平滑的滚动着