加了个窗体专门显示进度。
progCheck为Progress
Private Sub Form_Timer()
Me.progCheck.value = Me.progCheck.value + g_intProgressStep
If Me.progCheck.value >= Me.progCheck.Max Then
Me.progCheck.value = Me.progCheck.Min
End If
DoEvents
End Sub
在进行耗时的处理前(大量数据操作),打开此窗体, 为什么只执行timer()一次呢,进度条不前进了?