找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 3713|回复: 0

【开源】延迟函数代码

[复制链接]

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2009-1-8 08:40:53 | 显示全部楼层 |阅读模式
'***********延迟函数***********<br/>'参数为毫秒<br/>Public Sub delay(ByVal Milliseconds As Long)<br/><br/>&nbsp; &nbsp; Dim t1 As Long<br/>&nbsp; &nbsp; Dim t2 As Long<br/>&nbsp; &nbsp; Dim i As Long<br/>&nbsp; &nbsp; <br/>&nbsp; &nbsp; t1 = timeGetTime<br/>&nbsp; &nbsp; Do<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;i = i + 1<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;If i &gt;= 500 Then<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;t2 = timeGetTime<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;If t2 - t1 &gt; Milliseconds Then<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;Exit Do<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;End If<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;i = 0<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;End If<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;DoEvents<br/>&nbsp; &nbsp; Loop<br/>End Sub
【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表