VB中建立等待几秒钟的函数

过程给你:
Private Declare Function timeGetTime Lib “winmm.dll” () As Long

Sub Delay(Byval DelayTime As Long) ‘单位是毫秒
DelayTime =DelayTime + Timegettime
Do While Timegettime < DelayTime
DoEvents
Loop
End Sub

调用的时候这样写:

Delay 1000  ‘延时一秒

用这个过程比较好,不会造成程序“假死”的现象。

 

vb_delay_time_function

vb_delay_time_function

 » 本站地址:http://www.gomoth.com

标签: