vb使程序休息几秒钟

开头定义下

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

使用办法

Sleep 5000 '休息5秒

一个出色的延时函数

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function GetTickCount Lib "kernel32" () As Long

 

'功能：延时函数

'参数: MilliSecond--延时毫秒数，默认1000毫秒即1秒钟

Private Sub Delay(Optional ByVal MilliSecond As Long = 1000)

    Dim lngStart  As Long

    lngStart = GetTickCount

    While (GetTickCount - lngStart) < MilliSecond

        Sleep 50 '如果不加上这句，CPU使用率会达到100%，网上很多没加上这句

        DoEvents

    Wend

End Sub

官网： http://51xuejianzhan.com/dev/20140604/1006.html