Public Sub Delay(mSec As Long)
On Error GoTo ShowErr
Dim TStart As Single
TStart = Timer
While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
然后你代码中的sleep换成: Delay (1000)
VB 解决sleep卡屏
最新推荐文章于 2020-09-16 03:01:00 发布