首页 » Visual Basic » vb延时函数精确到毫秒

vb延时函数精确到毫秒

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub delay(HaoMiao As Double)
    Dim t1 As Long
    t1 = timeGetTime
    While (timeGetTime - t1) < HaoMiao: DoEvents: Wend
End Sub

转发到新浪微博 转发到新浪微博

目前这篇文章还没有评论(Rss)

我要评论
You must be logged in to post a comment.

上一篇：

下一篇：