新聞中心
VB.NET的幾種延時(shí)方法
Imports System.Threading
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比托里網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式托里網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋托里地區(qū)。費(fèi)用合理售后完善,十年實(shí)體公司更值得信賴。
Thread.Sleep(1000)’延遲1秒
2.PauseWait(1000)’延遲1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub
VB點(diǎn)虐 如何設(shè)定準(zhǔn)確的1秒時(shí)間?
form 的load事件中加一句:timer1.interval=1000
在一個(gè)按鈕里面加入一句觸發(fā)timer事件開(kāi)始計(jì)時(shí)的代碼:
timer1.enabled=true
timer的tick事件中加入這么兩句:
textbox1.backcolor=color.red
timer1.enabled=false
VB的延時(shí)1秒命令怎么寫(xiě),在線給分
VB提倡的是用定時(shí)器控件(Timer)的方法。首先在窗體放入一個(gè)Timer1和Command1,然后輸入以下代碼:
Private?Sub?Command1_Click()
Timer1.Interval?=?1000
Timer1.Enabled?=?True
End?Sub
Private?Sub?Form_Load()
Timer1.Enabled?=?False
End?Sub
Private?Sub?Timer1_Timer()
MsgBox?"這個(gè)對(duì)話框是點(diǎn)擊按鈕1秒鐘后彈出來(lái)的"
Timer1.Enabled?=?False
End?Sub
此外還可以用API函數(shù)Sleep來(lái)延時(shí),或者利用循環(huán)結(jié)合時(shí)間函數(shù)來(lái)延時(shí),但它們都容易造成系統(tǒng)阻塞,所以不建議使用。
使用定時(shí)器控件還有一個(gè)最大好處,就是在延時(shí)期間你的程序還可以繼續(xù)運(yùn)行處理其他事務(wù)(比如鼠標(biāo)點(diǎn)擊、鍵盤輸入等)。而其他方法產(chǎn)生的延時(shí)效果,在延時(shí)期間就只能傻等,什么也做不了,甚至還有可能影響到其他程序。
網(wǎng)站題目:包含vb點(diǎn)虐 延時(shí)1秒的詞條
本文路徑:http://www.ef60e0e.cn/article/ddcpjes.html