用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > 編程開發 > 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%
黑龙江22选5大星走势图