關于vb.net計時器代碼的信息

VB中怎樣制作一個計時器？ 能夠設置倒計時的時間，并進行倒計時

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

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

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

3、雙擊“設置倒計時”命令按鈕，進入代碼編輯窗口。

4、雙擊“啟動倒計時”命令按鈕，進入代碼編輯窗口。

5、雙擊“計時器”控件，進入代碼編輯窗口。

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

7、雙擊窗體，進入代碼編輯器，在?Form_Load事件中寫入代碼：Timer1.Enabled = False '先關閉計時器。

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

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

用VB.net做一個時間計時器

'添加一個label標簽名字label1 用來顯示時間

'再添加一個timer控件 名字timer1 interval屬性=1000 用來計時

'窗體添加代碼

Dim t As Date '用來記錄時間

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

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時間:" t.TimeOfDay.ToString

End Sub

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

Dim?tCount?As?Integer?'用來計數(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("時間到")

Timer1.Enabled?=?False

End?If

End

Sub

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

不需要控件就可以，用多線程的方式實現(xiàn)，在窗體上放一個Label和一個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?=?"結束"

Start?=?DateAndTime.Timer

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

td.Start()

Else

Button1.Text?=?"開始"

td.Abort()

End?If

End?Sub

'定義一個線程

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

'定義一個委托

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)站欄目：關于vb.net計時器代碼的信息
文章轉載：http://muchs.cn/article8/hheeip.html

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

廣告

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