vb延时

来源:互联网 发布:南风知我意许南风txt 编辑:程序博客网 时间:2024/06/06 18:14
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 '转让控制权    WendEnd Function

0 0
原创粉丝点击