如何在vb.net中取得兩時(shí)間的毫秒差

dim a1 as timespan = dtEndTime -dtStartTime

成都創(chuàng)新互聯(lián)是專業(yè)的網(wǎng)站建設(shè)公司,提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)站設(shè)計(jì)等網(wǎng)站開發(fā)一體化解決方案;包括H5高端網(wǎng)站建設(shè),重慶小程序開發(fā)公司,網(wǎng)站定制,企業(yè)網(wǎng)站建設(shè),商城網(wǎng)站制作,響應(yīng)式網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè),軟件開發(fā)，軟文發(fā)稿，網(wǎng)站營(yíng)銷。歡迎做網(wǎng)站的企業(yè)前來(lái)合作洽談,成都創(chuàng)新互聯(lián)將竭誠(chéng)為您服務(wù)!

dim a2 as integer = a1.TotalMilliseconds

vb.net毫秒計(jì)時(shí)器代碼問(wèn)題

elapsed.Milliseconds 獲取毫秒。

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

無(wú)限循環(huán)，且沒(méi)有退出機(jī)制，停不下來(lái)。

怎樣用vb.net做毫秒計(jì)時(shí)器（有沒(méi)有什么類似于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