vb.net毫秒计算

怎样用vb.net做毫秒计时器（有没有什么类似于ccrptmr之类的控件）

不需要控件就可以,用多线程的方式实现,在窗体上放一个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

td.Abort()

End?If

'定义一个线程

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

'定义一个委托

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?Class

如何在vb.net中取得两时间的毫秒差

dim a1 as timespan = dtEndTime -dtStartTime

VB.NET,如何用TIMER控件计时

这种功能用不到TIMER,TIMER控件用在这种地方也不适合.（假如你所统计的时间很短,在几分中内话,可以使用,假如你统计的时间很长：几小时、几天几夜,建议改用以下方式）：

在你需要开始计时的地方加入一个记录当前时间,在你想结束的地方也得到一个当前时间.然后将两个时间相减.

希望以上思路可以帮到你.

vb.net毫秒计时器代码问题

elapsed.Milliseconds 获取毫秒.

每100毫秒,do中的代码执行一次,执行时间将大于100毫秒,这是产生误差的地方之一.invoke执行一个方法txt,必须等txt里面的代码运行完毕,方法才能返回,期间占用的时间全是"误差".

无限循环,且没有退出机制,停不下来.