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

Dim?tCount?As?Integer?'用來計數

創新互聯是一家集網站建設,淥口企業網站建設,淥口品牌網站建設,網站定制,淥口網站建設報價,網絡營銷,網絡優化,淥口網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

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

System.EventArgs)?Handles?MyBase.Load

tCount?=?10

Timer1.Interval?=?1000?'每秒執行一次

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分別改為“設置倒計時”、“啟動倒計時”、“繼續”，將窗體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運行程序，再單擊“設置倒計時”這個命令按鈕，這時候就會彈出一個輸入對話框，一定要記得此時輸入分鐘數，數字為1，然后確定，如圖所示：

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

擴展資料：

使用VB倒計時設置計時參數5X60=300秒，然后設置定時器1S中斷.當計時器為0就是5分鐘，將計時器參數顯示在文本框中就可以了。這個題目需要使用計時器控件，所以計時器的控件的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)

網頁標題：包含vb.net倒計時編寫的詞條
文章分享：http://vcdvsql.cn/article14/dopjgde.html

成都網站建設公司_創新互聯，為您提供網站內鏈、外貿網站建設、網站設計、品牌網站設計、域名注冊、云服務器

廣告

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