怎么用VB6.0編一個(gè)倒計(jì)時(shí)程序？

樓上的代碼這么長(zhǎng)，還簡(jiǎn)單？

成都創(chuàng)新互聯(lián)專注于茄子河企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城網(wǎng)站建設(shè)。茄子河網(wǎng)站建設(shè)公司,為茄子河等地區(qū)提供建站服務(wù)。全流程按需定制開發(fā)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

無(wú)語(yǔ)

我給你寫了一個(gè)，這個(gè)才是真正的簡(jiǎn)單實(shí)用，呵呵！

加個(gè)TIMER控件

把Interval

屬性調(diào)成

1000

毫秒

也就是

1秒

在加兩個(gè)

TEXT

text1.text=3

text2.text=00

在加個(gè)按鈕

開始倒計(jì)時(shí)

就行了

程序代碼如下:

Private

Sub

Form_Load()

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

If

(Text2.Text

=

0)

Then

Text2.Text

=

59

Text1.Text

=

Text1.Text

-

1

Else

Text2.Text

=

Text2.Text

-

1

End

If

End

Sub

Private

Sub

Command1_Click()

Timer1.Enabled

=

True

End

Sub

如果有什么地方不懂，歡迎聯(lián)系我！

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

Dim?tCount?As?Integer?'用來(lái)計(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

vb6，做一個(gè)10s倒計(jì)時(shí)

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

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

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

a = InputBox("請(qǐng)輸入倒計(jì)時(shí)時(shí)間(以分為單位)：", "倒計(jì)時(shí)輸入框"

雙擊“啟動(dòng)倒計(jì)時(shí)”命令按鈕，進(jìn)入代碼編輯窗口，輸入如下代碼：

Timer1.Interval = 1000 '設(shè)置計(jì)時(shí)器為一秒發(fā)生一次

Timer1.Enabled = True '激活計(jì)時(shí)器

If a 60 Then

m = a

Else

h = s \ 60

m = a Mod 60

End If

m = m - 1

s = 60

雙擊“計(jì)時(shí)器”控件，進(jìn)入代碼編輯窗口，輸入如下代碼：

s = s - 1

If s = 0 And m 0 Then

s = 60

m = m - 1

End If

If m = 0 And h 0 Then

h = h - 1

m = 59

s = 60

在代碼編輯窗口的通用段進(jìn)行變量定義：

Dim h As Integer, m As Integer, s As Integer '分別存儲(chǔ)時(shí)分秒

Dim a As Integer

雙擊窗體，進(jìn)入代碼編輯器，在?Form_Load事件中寫入代碼：

Timer1.Enabled = False '先關(guān)閉計(jì)時(shí)器

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

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

將以上內(nèi)容中時(shí)間改為10s即可，望采納。

求高手用vb.net做一個(gè)倒計(jì)時(shí)程序。

畫面添加textbox1 timer1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 1000

TextBox1.Text = "2011/12/07 10:35:00"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If IsDate(TextBox1.Text) = True Then

Timer1.Start()

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Format(Now, "yyyy/MM/dd hh:mm:ss") = TextBox1.Text Then

MsgBox("It's time to go")

Timer1.Stop()

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)整成為小四，方便接下來(lái)的觀察，一定記得把背景色屬性Backcolor調(diào)為淺黃色。

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

4、接著雙擊“啟動(dòng)倒計(jì)時(shí)”命令這個(gè)按鈕，接下來(lái)會(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屬性需要熟知。

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

1、打開VB6.0，新建一個(gè)工程，在窗體中添加三個(gè)命令按鈕，caption分別改為“設(shè)置倒計(jì)時(shí)”、“啟動(dòng)倒計(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、雙擊“啟動(dòng)倒計(jì)時(shí)”命令按鈕，進(jìn)入代碼編輯窗口。

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

6、在代碼編輯窗口的通用段進(jìn)行變量定義：Dim h As Integer, m As Integer, s As Integer '分別存儲(chǔ)時(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í)”命令按鈕，彈出輸入對(duì)話框，此時(shí)輸入分鐘數(shù)為1，確定。

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