包含vb.net中等待時(shí)間的詞條

vb中怎么用timer控件設(shè)置一個(gè)等待時(shí)間

以下程序利用Timer，使得程序等待1秒（1000毫秒）后繼續(xù)執(zhí)行

創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站設(shè)計(jì)、網(wǎng)站制作與策劃設(shè)計(jì),惠城網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:惠城等地區(qū)?；莩亲鼍W(wǎng)站價(jià)格咨詢:18980820575

Option?Explicit

Private?Sub?Command1_Click()

Cls?????????????????????'清屏

Timer1.Interval?=?1000??'等待1000毫秒（1秒）

Timer1.Enabled?=?True???'啟動(dòng)定時(shí)器

Do?While?Timer1.Enabled?'循環(huán)等待，直到定時(shí)器Timer1停止

DoEvents????????????'等待期間防止窗體“凝滯”

Print?"等待"????????'提示

Loop

Cls?????????????????????'清屏

Print?"繼續(xù)執(zhí)行"????????'提示：等待結(jié)束

End?Sub

Private?Sub?Timer1_Timer()

'定時(shí)到！停止定時(shí)器

Timer1.Enabled?=?False??

End?Sub

vb中等待一段時(shí)間再繼續(xù)執(zhí)行后續(xù)命令用什么

1.使用Windows API函數(shù)Sleep

新建一個(gè)工程,添加一個(gè)TextBox控件和一個(gè)CommandButton控件,再將以下代碼復(fù)制到代碼窗口

'聲明:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Text1 = "sleep begin"

Sleep 3000 'ms

Text1 = "sleep end"

End Sub

按F5執(zhí)行,按下Command1按鈕,程序停止執(zhí)行,3秒鐘內(nèi)不對用戶的操作做出反應(yīng),并且Text1里的內(nèi)容并沒有發(fā)生改變.這是怎么回事呢?原來,Sleep函數(shù)功能是將調(diào)用它的進(jìn)程掛起dwMilliseconds毫秒時(shí)間,在這段時(shí)間內(nèi),此進(jìn)程不對用戶操作做出反應(yīng),程序中雖然將Text1的Text屬性改成Sleep begin,但還沒等完成對屏幕的更新進(jìn)程就被掛起了,對用戶來說程序象是死機(jī)一樣。所以這種方法雖然簡單,但并不適用.

2.使用Timer()函數(shù)

這是用的最多的一種方法,也是在VB聯(lián)機(jī)手冊中所推薦的。添加一個(gè)CommandButton控件,再將以下代碼添加到代碼窗口中:

Private Sub Command2_Click()

Dim Savetime As Single

Text1 = "Timer begin"

Savetime = Timer '記下開始的時(shí)間

While Timer Savetime + 5 '循環(huán)等待

DoEvents '轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。

Wend

Text1 = "Timer ok"

End Sub

這種方法雖然也很簡單,但卻有有一個(gè)致命缺陷,那就是Timer函數(shù)返回的是從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。所以Timer返回的最大值也只是60*60*24-1秒,如果從一天的23:59:58秒開始計(jì)時(shí)等待5秒,那么程序會永遠(yuǎn)地循環(huán)下去。要進(jìn)行改良,就要加上判斷是否又開始了新的一天,那豈不是太麻煩.下面給大家推薦另一個(gè)Windows API函數(shù).

3.使用Windows API函數(shù)timeGetTime()

timeGetTime函數(shù)沒有參數(shù),返回值是從開機(jī)到現(xiàn)在所經(jīng)歷的毫秒數(shù),這個(gè)毫秒數(shù)是非周期性遞增的,所以不會出現(xiàn)Timer()函數(shù)出現(xiàn)的問題,而且這種方法的精確性高于上一種方法。添加一個(gè)CommandButton控件,再將以下代碼添加到代碼窗口中:

'聲明

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command3_Click()

Dim Savetime As Double

Text1 = "timeGetTime begin"

Savetime = timeGetTime '記下開始時(shí)的時(shí)間

While timeGetTime Savetime + 5000 '循環(huán)等待

DoEvents '轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。

Wend

Text1 = "timeGetTime end"

End Sub

按F5執(zhí)行程序,按這幾個(gè)按鈕,您可以感受一下這幾種方法的優(yōu)劣.

VB.net2013中如何讓for....next循環(huán)一次等待1秒(或多秒）再循環(huán)一次等1秒，直到循環(huán)結(jié)束。

Dim?s?As?String?=?"123456789"

For?i?=?1?To?Len(s)

TextBox1.Text?=?TextBox1.Text??Mid(s,?i,?1)

System.Threading.Thread.Sleep(1000)

Application.DoEvents()

Next

網(wǎng)站題目：包含vb.net中等待時(shí)間的詞條
URL網(wǎng)址：http://muchs.cn/article36/dohdpsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、定制開發(fā)、手機(jī)網(wǎng)站建設(shè)、做網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、定制網(wǎng)站

廣告

聲明：本網(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)