Sub SleepEx(T As Long) '防止卡UI
Dim time1 As Long
time1 = timeGetTime
Do
DoEvents
Loop While timeGetTime - time1 < T
End Sub
调用方法
SleepEx 1000 即可延迟1秒
此函数不会导致VB界面假死或无响应。
VB交流站 www.zai996.com q1016058890
Sub SleepEx(T As Long) '防止卡UI
Dim time1 As Long
time1 = timeGetTime
Do
DoEvents
Loop While timeGetTime - time1 < T
End Sub
调用方法
SleepEx 1000 即可延迟1秒
此函数不会导致VB界面假死或无响应。
VB交流站 www.zai996.com q1016058890