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è)文本框。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供龍崗網(wǎng)站建設(shè)、龍崗做網(wǎng)站、龍崗網(wǎng)站設(shè)計(jì)、龍崗網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、龍崗企業(yè)網(wǎng)站模板建站服務(wù)，十余年龍崗做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

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í)功能。

用VB.net做一個(gè)時(shí)間計(jì)時(shí)器

'添加一個(gè)label標(biāo)簽名字label1 用來(lái)顯示時(shí)間

'再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來(lái)計(jì)時(shí)

'窗體添加代碼

Dim t As Date '用來(lái)記錄時(shí)間

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString

End Sub

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

怎樣用vb.net做毫秒計(jì)時(shí)器（有沒有什么類似于ccrptmr之類的控件）

不需要控件就可以，用多線程的方式實(shí)現(xiàn)，在窗體上放一個(gè)Label和一個(gè)button按鈕，代碼如下：

Imports?System.Threading

Public?Class?Form1

Dim?Start?As?Double

Dim?td?As?Thread

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

Label1.Text?=?"00:00:00?000"

Button1.Text?=?"開始"

End?Sub

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

If?Button1.Text?=?"開始"?Then

Button1.Text?=?"結(jié)束"

Start?=?DateAndTime.Timer

td?=?New?Thread(AddressOf?fun1)

td.Start()

Else

Button1.Text?=?"開始"

td.Abort()

End?If

End?Sub

'定義一個(gè)線程

Private?Sub?fun1()

Dim?elapsed?As?TimeSpan

Dim?Dg_txt?As?New?Dg(AddressOf?txt)

Do

elapsed?=?TimeSpan.FromMilliseconds((DateAndTime.Timer?-?Start)?*?1000)

Me.Invoke(Dg_txt,?elapsed.ToString,?Label1)

Thread.Sleep(100)

Loop

End?Sub

'定義一個(gè)委托

Delegate?Sub?Dg(ByVal?s?As?String,?ByVal?obj?As?Label)

Sub?txt(ByVal?s?As?String,?ByVal?obj?As?Label)

obj.Text?=?s

End?Sub

End?Class

網(wǎng)站欄目：關(guān)于vb.net計(jì)時(shí)器代碼的信息
文章轉(zhuǎn)載：http://sd-ha.com/article8/hheeip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、網(wǎng)站策劃、網(wǎng)站改版、商城網(wǎng)站、品牌網(wǎng)站建設(shè)、動(dòng)態(tài)網(wǎng)站

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)