Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim t As Single
t = Timer
Sleep 1000 '调用sleep
MsgBox Timer - t '验证结果
End Sub
偷懒抄了别人一段代码，因手上没有vb，其实就是调用Sleep这个API函数休息一下子了，可以满足低精度的应用。vb有定时器的啊，为什么不用
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024