有关vb的progressbar
答案:1 悬赏:20
解决时间 2021-01-05 17:56
- 提问者网友:最爱你的唇
- 2021-01-05 14:07
有关vb的progressbar
最佳答案
- 二级知识专家网友:话散在刀尖上
- 2021-01-05 14:40
结构有些问题,给你改了一下,你试试
Private Sub Command1_Click()
ProgressBar1.Max = 30
ProgressBar1.Min = 0
Timer1.Interval = 1000
ProgressBar1.Value = ProgressBar1.Min
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False
End Sub
你的问题在于,已经到了最大值,还在加,当然会出错
Private Sub Command1_Click()
ProgressBar1.Max = 30
ProgressBar1.Min = 0
Timer1.Interval = 1000
ProgressBar1.Value = ProgressBar1.Min
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False
End Sub
你的问题在于,已经到了最大值,还在加,当然会出错
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯