vb.net計時到毫秒的簡單介紹

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

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

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

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中的代碼執行一次，執行時間將大于100毫秒，這是產生誤差的地方之一。invoke執行一個方法txt，必須等txt里面的代碼運行完畢，方法才能返回，期間占用的時間全是“誤差”。

無限循環，且沒有退出機制，停不下來。

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

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

廣告

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