private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位:毫秒)
Public Function Sleep2(T As Long)
Dim Savetime As Long
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + T '循环等待
DoEvents '转让控制权
Wend
End Function
vb延时
最新推荐文章于 2016-12-27 14:48:38 发布