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

不需要控件就可以，用多線程的方式實現，在窗體上放一個Label和一個button按鈕，代碼如下：

創(chuàng)新互聯制作網站網頁找三站合一網站制作公司,專注于網頁設計,成都網站設計、網站建設,網站設計,企業(yè)網站搭建,網站開發(fā),建網站業(yè)務,680元做網站,已為上1000+服務,創(chuàng)新互聯網站建設將一如既往的為我們的客戶提供最優(yōu)質的網站建設、網絡營銷推廣服務!

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

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毫秒計時器代碼問題

elapsed.Milliseconds 獲取毫秒。

每100毫秒，do中的代碼執(zhí)行一次，執(zhí)行時間將大于100毫秒，這是產生誤差的地方之一。invoke執(zhí)行一個方法txt，必須等txt里面的代碼運行完畢，方法才能返回，期間占用的時間全是“誤差”。

無限循環(huán)，且沒有退出機制，停不下來。

當前標題：vb.net計時到毫秒的簡單介紹
文章路徑：http://www.rwnh.cn/article18/doggodp.html

成都網站建設公司_創(chuàng)新互聯，為您提供用戶體驗、微信小程序、軟件開發(fā)、服務器托管、移動網站建設、云服務器

廣告

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