VB.net中如何用timer控件編出一個簡單的倒計時器？

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

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

Timer1.Enabled?=?False

End?If

End

Sub

VB倒計時怎么做

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

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

3、接下來，雙擊“設置倒計時”命令這個按鈕，就會進入到代碼編輯窗口，輸入如圖所示代碼：

4、接著雙擊“啟動倒計時”命令這個按鈕，接下來會進入代碼編輯窗口，再輸入如下圖所示代碼：

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

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

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

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

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

擴展資料：

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

有誰幫寫個VB的倒計時器，只需要1分鐘之內即可，越簡單越好，謝謝啦

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

添加Label1控件，初始值設為60

添加button1控件，標題=“開始倒計時”

button1.click事件下編寫timer1.enabled=true'開始倒計時

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

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

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

網(wǎng)頁標題：包含vb.net倒計時編寫的詞條
文章分享：http://www.yijiale78.com/article14/dopjgde.html

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

廣告

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