进度条代码，窗口启动进度条就在动作，我还没有点按钮呢

reseteasy 发布于 2014-01-04 17:03， 356 次点击

进度条代码，窗口启动进度条就在动作，我还没有点按钮呢
Private Sub Command3_Click()
ProgressBar1.Value = ProgressBar1.Min
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
ProgressBar1.Value = 0
End If
End Sub

坛友帮我看看，是什么问题？谢谢

3 回复

韶志2014-01-05 00:05

在 form_load() 里面把Timer1.Enabled 设置成 false

Artless2014-01-06 14:17

Timer1初始Enabled=false

reseteasy2014-01-08 13:45

2楼的是正确的，我成功了，加上这个就OK

Private Sub Form_Load()
Timer1.Enabled = False
End Sub