level 2
If KeyAscii = 13 The
Timer1.Enabled = True
ProgressBar1.Max = m
Timer1_Timer（ProgressBar1.Value = m 改成这句）
End If
2021年10月27日 05点10分
level 15
Timer1.Interval = m * 100 '这句改成 Timer1.Interval = 1000
定时器的时间流速不应该受你输入的时间影响（更何况启动时这个时间还没输入到m当中去），而应该是固定的每秒一次；另外，定时器的Enabled和Interval这些属性没必要在Form_Load过程中设置，属性窗口是干啥的？
2021年10月27日 06点10分
4
定时器的时间流速不应该受你输入的时间影响（更何况启动时这个时间还没输入到m当中去），而应该是固定的每秒一次；另外，定时器的Enabled和Interval这些属性没必要在Form_Load过程中设置，属性窗口是干啥的？
level 5
Private Sub Form_Load()
ProgressBar1.Visible = True ' 进度条可见
ProgressBar1.Scrolling = ccScrollingSmooth '设置进度条样式
ProgressBar1.Max = 100 ' 设置进度条最大值
i = 1
Timer1_Timer‘调用
End Sub
Private Sub Timer1_Timer()
i = i + 1
ProgressBar1.Value = i ' 显示进度
If i >= 100 Then‘达到最大进度结束
End
End If
End Sub
放一个计时器，一个进度条，复制黏贴
2021年10月27日 08点10分
6
ProgressBar1.Visible = True ' 进度条可见
ProgressBar1.Scrolling = ccScrollingSmooth '设置进度条样式
ProgressBar1.Max = 100 ' 设置进度条最大值
i = 1
Timer1_Timer‘调用
End Sub
Private Sub Timer1_Timer()
i = i + 1
ProgressBar1.Value = i ' 显示进度
If i >= 100 Then‘达到最大进度结束
End
End If
End Sub
放一个计时器，一个进度条，复制黏贴
谢谢谢谢
2021年10月27日 09点10分