西西軟件園多重安全檢測(cè)下載網(wǎng)站、值得信賴的軟件下載站！
軟件
軟件
文章
搜索

首頁(yè) → 編程開(kāi)發(fā) → 其它知識(shí) → VB中的延時(shí)函數(shù)：自定義do...loop循環(huán)

VB中的延時(shí)函數(shù)：自定義do...loop循環(huán)

相關(guān)軟件相關(guān)文章發(fā)表評(píng)論 來(lái)源：U盤殺毒精靈官網(wǎng)時(shí)間：2011/7/29 10:39:41字體大小：A-A+

作者：反黑衛(wèi)士點(diǎn)擊：641次評(píng)論：1次標(biāo)簽： VB6.0

msdn for vb6.0中文精簡(jiǎn)版
  • 類型：編程輔助大�。�27.6M語(yǔ)言：中文 評(píng)分：2.5
  • 標(biāo)簽：
立即下載
 1、新建一個(gè)標(biāo)準(zhǔn)模塊

2、寫(xiě)入代碼

Dim nowtime As Integer

Public Sub Delay(t As Integer)
nowtime = Timer
Do While Timer - nowtime < t
DoEvents
Loop
End Sub

這樣一個(gè)延時(shí)函數(shù)就完成了！

工程中需要延時(shí)時(shí)只需調(diào)用該函數(shù)

例子：需要延時(shí)3秒

call delay(3)

即可！

    相關(guān)文章

    相關(guān)評(píng)論

    閱讀本文后您有什么感想? 已有人給出評(píng)價(jià)!

    • 8 喜歡喜歡
    • 3 頂頂
    • 1 難過(guò)難過(guò)
    • 5 囧囧
    • 3 圍觀圍觀
    • 2 無(wú)聊無(wú)聊

    熱門評(píng)論

    最新評(píng)論

    發(fā)表評(píng)論 查看所有評(píng)論(1)

    昵稱:
    表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
    字?jǐn)?shù): 0/500 (您的評(píng)論需要經(jīng)過(guò)審核才能顯示)