vb中timer實(shí)現(xiàn)簡(jiǎn)單延時(shí)功能

《vb中timer實(shí)現(xiàn)簡(jiǎn)單延時(shí)功能》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、Vb中用timer實(shí)現(xiàn)簡(jiǎn)單的延時(shí)執(zhí)行的實(shí)例：本實(shí)例是一個(gè)非常簡(jiǎn)單的延時(shí)功能；實(shí)現(xiàn)的功能是：點(diǎn)擊按鈕后顯示文字1，五秒后顯示文字2。用這種方式有個(gè)好處，程序不會(huì)占過(guò)多的cup資源。1打開(kāi)一個(gè)標(biāo)準(zhǔn)工程：2加入timer時(shí)鐘控件、command按鈕控件、text文本框控件：3設(shè)置timer1的屬性Enabled為False；屬性Interval值為1000：4進(jìn)入代碼編輯器添加代碼如下：DimiPrivateSubCommand1_Click()i=5000'5000毫秒Print"顯示文字1；5秒之后，顯示文字2"Text1.Text=

2、Str(i)+"毫秒"Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()i=i-1000Text1.Text=Str(i)+"毫秒"'實(shí)時(shí)顯示剩余的毫秒數(shù)If(i=0)ThenCallF1ExitSubEndIfEndSubFunctionF1()Timer1.Enabled=False'要執(zhí)行的代碼，比如：Print"顯示文字2"EndFunction5保存，選一個(gè)你自己喜歡的文件夾；再點(diǎn)運(yùn)行，效果如下：在某些特殊地方，比如：文本框輸入時(shí)希望程序等輸入完成后，再執(zhí)行后面的動(dòng)作，用這種

3、方式可以實(shí)現(xiàn)，已經(jīng)測(cè)試成功。