一段延时的代码

Eddy 发布于2010-8-2 20:29:54 分类: 程序设计 已浏览loading 网友评论0条 我要评论

延时可以使用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

记住我的信息,下次不用再输入 欢迎给Eddy Blog留言