VB.NET的幾種延時(shí)方法

Imports System.Threading

成都創(chuàng)新互聯(lián)企業(yè)建站,10年網(wǎng)站建設(shè)經(jīng)驗(yàn)，專注于網(wǎng)站建設(shè)技術(shù)，精于網(wǎng)頁設(shè)計(jì)，有多年建站和網(wǎng)站代運(yùn)營經(jīng)驗(yàn)，設(shè)計(jì)師為客戶打造網(wǎng)絡(luò)企業(yè)風(fēng)格，提供周到的建站售前咨詢和貼心的售后服務(wù)。對于網(wǎng)站制作、做網(wǎng)站中不同領(lǐng)域進(jìn)行深入了解和探索，創(chuàng)新互聯(lián)在網(wǎng)站建設(shè)中充分了解客戶行業(yè)的需求，以靈動的思維在網(wǎng)頁中充分展現(xiàn)，通過對客戶行業(yè)精準(zhǔn)市場調(diào)研，為客戶提供的解決方案。

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中如何實(shí)現(xiàn)延時(shí)功能？

可以用定時(shí)器，設(shè)置個中斷時(shí)間間隔，時(shí)間一到就進(jìn)入中斷，可用于按一定規(guī)律延時(shí)的情況。

也可以用Timer函數(shù)，如以下是延時(shí)100ms:

T1=Timer

Do While(Timer-T10.1)

X=DoEvents

LOOP

注意，用這二種方法的延時(shí)只有在延時(shí)時(shí)間20ms以上才比較準(zhǔn)，時(shí)間越小越不準(zhǔn)。

怎么在vb 中加入延時(shí)命令

在窗體添加一個Timer和一個Command

Private?Sub?Command1_Click()

Me.Timer1.Interval?=?30?*?1000????????'定時(shí)30秒

Me.Timer1.Enabled?=?True

Do

If?Not?Timer1.Enabled?Then?MsgBox?"時(shí)間到！":?Exit?Sub

DoEvents

Loop

End?Sub

Private?Sub?Form_Load()

Timer1.Enabled?=?False

End?Sub

Private?Sub?Timer1_Timer()

Me.Timer1.Enabled?=?False

End?Sub

網(wǎng)頁標(biāo)題：vb.net中如何加延時(shí)的簡單介紹
文章來源：http://jinyejixie.com/article28/dohpjcp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、靜態(tài)網(wǎng)站、網(wǎng)站收錄、定制網(wǎng)站、網(wǎng)站排名、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)