一个非常好用的VB 延时函数

最新一个非常好用的VB 延时函数

以下是三零网为大家整理的最新一个非常好用的VB 延时函数的文章，希望大家能够喜欢!

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   '在要延时的地方调用 Sleep2(15000)  '延时15秒

延伸阅读:
·VB延时类 计算经过的时间 实现延时程序