VB.net中如何用timer控件編出一個(gè)簡(jiǎn)單的倒計(jì)時(shí)器？

Dim?tCount?As?Integer?'用來計(jì)數(shù)

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),淥口企業(yè)網(wǎng)站建設(shè),淥口品牌網(wǎng)站建設(shè),網(wǎng)站定制,淥口網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,淥口網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As

System.EventArgs)?Handles?MyBase.Load

tCount?=?10

Timer1.Interval?=?1000?'每秒執(zhí)行一次

Timer1.Enabled?=?True

End

Sub

Private?Sub

Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As

System.EventArgs)?Handles?Timer1.Tick

tCount?-=?1

If?tCount?=?0?Then

MessageBox.Show("時(shí)間到")

Timer1.Enabled?=?False

End?If

End

Sub

VB倒計(jì)時(shí)怎么做

1、首先，建立一個(gè)工程，并在窗口中添加三個(gè)命令按鈕，caption分別改為“設(shè)置倒計(jì)時(shí)”、“啟動(dòng)倒計(jì)時(shí)”、“繼續(xù)”，將窗體Form1的caption屬性改為“倒計(jì)時(shí)”，再添加一個(gè)計(jì)時(shí)器控件，并且添加一個(gè)文本框，將界面設(shè)置成如下圖所示。

2、將文本框的Text里的屬性清空干凈，再把字體Font的屬性調(diào)整成為小四，方便接下來的觀察，一定記得把背景色屬性Backcolor調(diào)為淺黃色。

3、接下來，雙擊“設(shè)置倒計(jì)時(shí)”命令這個(gè)按鈕，就會(huì)進(jìn)入到代碼編輯窗口，輸入如圖所示代碼：

4、接著雙擊“啟動(dòng)倒計(jì)時(shí)”命令這個(gè)按鈕，接下來會(huì)進(jìn)入代碼編輯窗口，再輸入如下圖所示代碼：

5、再接著雙擊“計(jì)時(shí)器”控件，然后進(jìn)入代碼編輯窗口，輸入如圖所示代碼：

6、在代碼編輯窗口的通用段進(jìn)行這三個(gè)變量的定義：Dim h As Integer, m As Integer, s As Integer '分別存儲(chǔ)這三個(gè)量時(shí)、分、秒，如下圖所示。

7、最后再雙擊窗體，然后就會(huì)進(jìn)入代碼編輯器，在?Form_Load事件中寫入代碼，代碼如下圖紅框所示：

8、接著關(guān)閉代碼窗口，按一下F5運(yùn)行程序，再單擊“設(shè)置倒計(jì)時(shí)”這個(gè)命令按鈕，這時(shí)候就會(huì)彈出一個(gè)輸入對(duì)話框，一定要記得此時(shí)輸入分鐘數(shù)，數(shù)字為1，然后確定，如圖所示：

9、最后一定要單擊“啟動(dòng)倒計(jì)時(shí)”這個(gè)命令按鈕，然后文本框就會(huì)顯示倒計(jì)時(shí)時(shí)間，并會(huì)不斷地變動(dòng)，這個(gè)時(shí)候你就可以看見時(shí)間在變動(dòng)，這就是實(shí)現(xiàn)了倒計(jì)時(shí)功能，如圖所示：

擴(kuò)展資料：

使用VB倒計(jì)時(shí)設(shè)置計(jì)時(shí)參數(shù)5X60=300秒，然后設(shè)置定時(shí)器1S中斷.當(dāng)計(jì)時(shí)器為0就是5分鐘，將計(jì)時(shí)器參數(shù)顯示在文本框中就可以了。這個(gè)題目需要使用計(jì)時(shí)器控件，所以計(jì)時(shí)器的控件的Timer事件以及Enable屬性、Interval屬性需要熟知。

有誰(shuí)幫寫個(gè)VB的倒計(jì)時(shí)器，只需要1分鐘之內(nèi)即可，越簡(jiǎn)單越好，謝謝啦

窗體中增加timer1控件，Interval設(shè)為1000（即1秒），enabled=false

添加Label1控件，初始值設(shè)為60

添加button1控件，標(biāo)題=“開始倒計(jì)時(shí)”

button1.click事件下編寫timer1.enabled=true'開始倒計(jì)時(shí)

Timer1_Timer(vb6)或Timer1_Tick(vb.net)事件下編寫

Label1.Caption=val(Label1.Caption)-1'(vb6)

或者Label1.Text=val(Label1.Text)-1'(vb.net)

網(wǎng)頁(yè)標(biāo)題：包含vb.net倒計(jì)時(shí)編寫的詞條
文章分享：http://m.newbst.com/article14/dopjgde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、品牌網(wǎng)站設(shè)計(jì)、域名注冊(cè)、云服務(wù)器

廣告

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