延时可以使用win32 API函数Sleep()来实现,不好的地方是延时的那段时间程序看上去会像卡死一样,当然时间断点那就无所谓了。
在CSDN上看到这么个延时代码:
Sub Delay(Seconds&)
Dim t&
t& = Timer
Do While Timer < t + Seconds
DoEvents
Loop
End Sub'用法:Delay 2 '延时2秒
加入DoEvents后就OK了,不过据说DoEvents很耗资源,还是少用为妙!
附一个VB中Timer函数的用法:
返回一个 Single,代表从午夜开始到现在经过的秒数。
语法
Timer
说明
Microsoft Windows中,Timer函数返回一秒的小数部分。
已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/program/480.html 欢迎订阅Eddy Blog。