vb.net时间毫秒的简单介绍

怎么在VB.net中实时显示时间

定时器中处理

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Timer1.Interval?=?10?'10毫秒刷新一次

Timer1.Start()?'开启定时器

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

Label1.Text?=?Now

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

不需要控件就可以,用多线程的方式实现,在窗体上放一个Label和一个button按钮,代码如下：

Imports?System.Threading

Public?Class?Form1

Dim?Start?As?Double

Dim?td?As?Thread

Label1.Text?=?"00:00:00?000"

Button1.Text?=?"开始"

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毫秒计时器代码问题

elapsed.Milliseconds 获取毫秒.

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

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

以上就是土嘎嘎小编为大家整理的vb.net时间毫秒的简单介绍vb.net时间毫秒的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！