锐客网

  1. 首页 > 生活百科 > it技术 > >

vbnet毫秒运算 vb 毫秒时间格式

IT技术时间

怎样用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
【vbnet毫秒运算 vb 毫秒时间格式】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关于时间的问题 。我用Vb.net的GetTickCount取时间，计算时间差 ， 编的程序是不是出错了？干嘛不直接用系统时间呢？
在start按下时 textbox4.text=now
在stop按下时 textbox5.text=now
vb.net毫秒计时器代码问题elapsed.Milliseconds 获取毫秒 。
每100毫秒vbnet毫秒运算，do中vbnet毫秒运算的代码执行一次vbnet毫秒运算，执行时间将大于100毫秒 ， 这是产生误差vbnet毫秒运算的地方之一 。invoke执行一个方法txt ， 必须等txt里面vbnet毫秒运算的代码运行完毕，方法才能返回，期间占用的时间全是“误差” 。
无限循环，且没有退出机制，停不下来 。
关于vbnet毫秒运算和vb 毫秒时间格式的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：jquery根据attr获取a元素，jQuery获取兄弟元素

    下一篇：网红直播吃货海鲜自助，吃海鲜自助视频