用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

一个非常好用的VB 延时函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-06-29 23:59:03
VBScript code复制代码
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位:毫秒)

Public Function Sleep2(T As Long)
    Dim Savetime As Long
    Savetime = timeGetTime '记下开始时的时间
    While timeGetTime < Savetime + T '循环等待
        DoEvents '转让控制权
    Wend
End Function



'在要延时的地方调用
Sleep2(15000)  '延时15秒

Tags:VB 延时

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      84%(21)
  • 差的评价 如果您觉得此文章差,就请您
      16%(4)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 1 条,得分 85 分,平均 85 分) 查看完整评论
[回复] 1游客   打分:85 分  发表时间:2013-03-25
· 调用doevents占cpu奇高,我i3占50%