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

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

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名注冊、網(wǎng)絡(luò)空間、營銷軟件、網(wǎng)站建設(shè)、永靖網(wǎng)站維護(hù)、網(wǎng)站推廣。

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

'窗體添加代碼

Dim t As Date '用來記錄時(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中怎樣制作一個(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 '分別存儲時(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、單擊“啟動(dòng)倒計(jì)時(shí)”命令按鈕，文本框顯示倒計(jì)時(shí)時(shí)間，并時(shí)刻變動(dòng)，至此實(shí)現(xiàn)了倒計(jì)時(shí)功能。

怎樣用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