请教,用Timer显示一个进程条的问题,请帮忙。谢谢
我想用一个进程条来表示一个虚假的进程,只是想在一个长时间动作开始后,有一个显示给客户看,当动作完成后,进程条退出,表示动作完成。
我用Timer来控制进程条,发现加入一个长时间的动作代码后,并不能得到效果,总是在动作代码运行完后,直接就报出了结束的消息,不能得到想要的进度
的显示。。。
请教,,应该如何实现这个功能。。谢谢
本人代码如下
Dim i As Integer
Dim stopT As Boolean
Private Sub Form_Load()
stopT = False
i = 0
bar.Max = 50
bar.Min = 0
Timer1.Enabled = True
Call doit
End Sub
Private Sub Timer1_Timer()
bar.Value = i
i = i + 1
If i = 50 Then
i = 0
End If
If stopT = True Then
Call stopBar
End If
End Sub
Private Sub stopBar()
Timer1.Enabled = False
MsgBox "over"
End Sub
Private Sub doit()
Dim count As Long
For count = 0 To 10000000
count = count + 1
Next count
stopT = True
End Sub