延时函数
小弟要问个简单的问题，延时函数怎么写好？例如要需要延时1秒钟，怎么写最好? 问题点数：60、回复次数：5Top
1 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-12-02 13:57:37 得分 10
你看看，具体的代码就不贴了
http://expert.csdn.net/Expert/topic/2472/2472295.xml?temp=.3526117Top
2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-12-02 13:59:39 得分 0
http://expert.csdn.net/Expert/ForumList_Search.asp?searchtype=1&bigclassid=51&smallclassid=5101&searchKeys=%D1%D3%CA%B1&author=&tabletype=nowTop
3 楼swpcsoft（小雪(http://www.qian360.com)）回复于 2003-12-03 22:35:49 得分 20
sub delay(n)
do
starttime = timer
loop until timer-starttime > =n
end sub
在你的程序里调用这个小子程序就可以了
用法： call delay（n） n代表所要延时的秒数
Top
4 楼nilboy（沙夜）回复于 2003-12-03 22:50:20 得分 10
timer控件可以很好的控制程序运行时间，何必要用延时函数？Top
5 楼caojianan（）回复于 2003-12-04 16:01:13 得分 20
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub delay(i As Integer)
Dim t1 As Long
Dim t2 As Long
t1 = timeGetTime
While (t2 - t1 < i * 1000) //*1000，那i就是要延时i秒，级别可以自己定
t2 = timeGetTime
DoEvents
Wend
End Sub
不好意思，抄袭别人的，但是很有用。
我的一个通讯程序是这样用的。Top
