阿杰 发表于 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
页: [1]
查看完整版本: 【开源】延迟函数代码