" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB – 类似timer暂停功能的函数

程序设计2005-05-30 itlogger阅读(459) 评论(0)
Public Declare Function GetTickCount Lib "kernel32" () As Long
Sub Pause(MS As Long)
'pretty simple first I set start as the
' starting time when the function runs
Dim start
start = GetTickCount
'here we wait until the start time plus
' however long I told it to wait is not gr
' eater than the current time
While start + MS > GetTickCount
DoEvents
Wend
'then we exit
End Sub

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/program/90.html

发表评论

电子邮件地址不会被公开。 必填项已用*标注