VB倒計(jì)時(shí)代碼

dim

成都創(chuàng)新互聯(lián)是一家業(yè)務(wù)范圍包括IDC托管業(yè)務(wù),雅安服務(wù)器托管、主機(jī)租用、主機(jī)托管，四川、重慶、廣東電信服務(wù)器租用,綿陽服務(wù)器托管，成都網(wǎng)通服務(wù)器托管,成都服務(wù)器租用,業(yè)務(wù)范圍遍及中國大陸、港澳臺以及歐美等多個(gè)國家及地區(qū)的互聯(lián)網(wǎng)數(shù)據(jù)服務(wù)公司。

s

as

long

private

sub

cmdset_click()

timer1.enabled

=

false

s

=

inputbox("請輸入倒計(jì)時(shí)秒數(shù)：",

"設(shè)置倒計(jì)時(shí)秒數(shù)",

5)

label1

=

"倒計(jì)時(shí)：

"

s

"秒"

cmdstop.tag

=

s

cmdstart.tag

=

cmdstart.caption

=

"啟動時(shí)間"

cmdstart.enabled

=

s

cmdstop.enabled

=

s

end

sub

private

sub

cmdstart_click()

if

cmdstart.tag

=

then

timer1.enabled

=

true

cmdstart.caption

=

"暫停時(shí)間"

cmdstart.tag

=

1

else

timer1.enabled

=

false

cmdstart.caption

=

"啟動時(shí)間"

cmdstart.tag

=

end

if

end

sub

private

sub

cmdstop_click()

cmdstart.tag

=

cmdstart.caption

=

"啟動時(shí)間"

timer1.enabled

=

false

s

=

cmdstop.tag

label1

=

"倒計(jì)時(shí)：

"

s

"秒"

end

sub

private

sub

timer1_timer()

s

=

s

-

1

label1

=

"倒計(jì)時(shí)：

"

s

"秒"

if

s

=

then

timer1.enabled

=

false

cmdstart.caption

=

"啟動時(shí)間"

cmdstart.tabindex

=

end

if

cmdstart.enabled

=

s

cmdstop.enabled

=

s

end

sub

VB中怎樣制作一個(gè)計(jì)時(shí)器？ 能夠設(shè)置倒計(jì)時(shí)的時(shí)間，并進(jìn)行倒計(jì)時(shí)

1、打開VB6.0，新建一個(gè)工程，在窗體中添加三個(gè)命令按鈕，caption分別改為“設(shè)置倒計(jì)時(shí)”、“啟動倒計(jì)時(shí)”、“繼續(xù)”，將窗體Form1的caption屬性改為“倒計(jì)時(shí)”，添加一個(gè)計(jì)時(shí)器控件，添加一個(gè)文本框。

2、將文本框的Text屬性清空，將字體Font屬性調(diào)整為小四，便于觀察，將背景色屬性Backcolor調(diào)為淺黃色。

3、雙擊“設(shè)置倒計(jì)時(shí)”命令按鈕，進(jìn)入代碼編輯窗口。

4、雙擊“啟動倒計(jì)時(shí)”命令按鈕，進(jìn)入代碼編輯窗口。

5、雙擊“計(jì)時(shí)器”控件，進(jìn)入代碼編輯窗口。

6、在代碼編輯窗口的通用段進(jìn)行變量定義：Dim h As Integer, m As Integer, s As Integer '分別存儲時(shí)分秒Dim a As Integer。

7、雙擊窗體，進(jìn)入代碼編輯器，在?Form_Load事件中寫入代碼：Timer1.Enabled = False '先關(guān)閉計(jì)時(shí)器。

8、關(guān)閉代碼窗口，按下F5運(yùn)行程序，單擊“設(shè)置倒計(jì)時(shí)”命令按鈕，彈出輸入對話框，此時(shí)輸入分鐘數(shù)為1，確定。

9、單擊“啟動倒計(jì)時(shí)”命令按鈕，文本框顯示倒計(jì)時(shí)時(shí)間，并時(shí)刻變動，至此實(shí)現(xiàn)了倒計(jì)時(shí)功能。

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

1、首先，建立一個(gè)工程，并在窗口中添加三個(gè)命令按鈕，caption分別改為“設(shè)置倒計(jì)時(shí)”、“啟動倒計(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è)按鈕，就會進(jìn)入到代碼編輯窗口，輸入如圖所示代碼：

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

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

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

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

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

9、最后一定要單擊“啟動倒計(jì)時(shí)”這個(gè)命令按鈕，然后文本框就會顯示倒計(jì)時(shí)時(shí)間，并會不斷地變動，這個(gè)時(shí)候你就可以看見時(shí)間在變動，這就是實(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屬性需要熟知。

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

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

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.net倒計(jì)時(shí)代碼的簡單介紹
標(biāo)題URL：http://aaarwkj.com/article32/dsshdpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、域名注冊、云服務(wù)器、網(wǎng)站改版、App設(shè)計(jì)、用戶體驗(yàn)

廣告

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