vbnet毫秒运算 vb 毫秒

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

elapsed.Milliseconds 获取毫秒。

成都创新互联专业为企业提供织金网站建设、织金做网站、织金网站设计、织金网站制作等企业网站建设、网页设计与制作、织金企业网站模板建站服务，10多年织金做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

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

无限循环，且没有退出机制，停不下来。

怎样用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中取得两时间的毫秒差

dim a1 as timespan = dtEndTime -dtStartTime

dim a2 as integer = a1.TotalMilliseconds

分享名称：vbnet毫秒运算 vb 毫秒
标题网址：https://www.cdcxhl.com/article0/dojdhio.html

成都网站建设公司_创新互联，为您提供定制开发、外贸网站建设、自适应网站、网站策划、标签优化、营销型网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联