用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > 編程開發 > 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%
皮皮麻将官网下载 (^ω^)MG射门高手免费下载 (^ω^)MG青龙出海如何爆大奖 今天福利彩票中奖号码 (-^O^-)MG丧尸来袭怎么玩 河北快三 彩票号码预测 (-^O^-)MG巫师梅林彩金 (★^O^★)MG边境之心送彩金 重庆时时彩五分一开 (★^O^★)MG运财酷儿_破解版下载 (★^O^★)MG呼噜噜爱上乡下app 香港赛马会绝杀10码 华东15选5开奖公告 淘宝快3秘籍 黑彩网上彩票平台排名 香港资料白四肖中特小姐一肖中特