如何在vb.net中取得两时间的毫秒差dim a1 as timespan = dtEndTime -dtStartTime
dim a2 as integer = a1.TotalMilliseconds
怎样用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
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毫秒计时器代码问题elapsed.Milliseconds 获取毫秒 。
每100毫秒 ， do中的代码执行一次 ， 执行时间将大于100毫秒，这是产生误差的地方之一 。invoke执行一个方法txt，必须等txt里面的代码运行完毕，方法才能返回，期间占用的时间全是“误差” 。
无限循环，且没有退出机制，停不下来 。
【vb.net获取毫秒 vb获取时间】关于vb.net获取毫秒和vb获取时间的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。
推荐阅读
- 拍摄到人鱼的视频叫什么，播放下人鱼的照片
- 游戏手机电池怎么选型号，游戏手机电池怎么选型号好
- 即时游戏50299，即时游戏app
- linux快速命令，linux快捷键
- go语言精确计算 go语言101
- 安卓吃鸡迁移到苹果手机，安卓手机吃鸡迁移到苹果手机
- xbox养成小游戏，xboxone小游戏30合集 中文
- 无锡鸿蒙机电科技有限公司，无锡鸿蒙机电科技有限公司电话
- 怎么在线使用oracle 怎么在线使用身份证查询注册了几个电信卡