锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net毫秒差 vba毫秒计时器

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
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窗体程序的time控件 ， 可以识别到的最小时间差是多少纳秒 ?VB有现成的函数：
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差 ， 代码：
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒
Vb.net关于时间的问题 。我用Vb.net的GetTickCount取时间，计算时间差，编的程序是不是出错了？干嘛不直接用系统时间呢vb.net毫秒差？
在start按下时 textbox4.text=now
在stop按下时 textbox5.text=now
如何在vb.net中取得两时间的毫秒差dim a1 as timespan = dtEndTime -dtStartTime
dim a2 as integer = a1.TotalMilliseconds
vb.net毫秒计时器代码问题elapsed.Milliseconds 获取毫秒 。
每100毫秒 ， do中的代码执行一次，执行时间将大于100毫秒，这是产生误差的地方之一 。invoke执行一个方法txt，必须等txt里面的代码运行完毕，方法才能返回，期间占用的时间全是“误差” 。
无限循环，且没有退出机制，停不下来 。
【vb.net毫秒差 vba毫秒计时器】关于vb.net毫秒差和vba毫秒计时器的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：视频安装什么插件好用，电脑安装什么插件可以播放视频

    下一篇：为什么虚拟机键盘不能用，为什么虚拟机键盘用不了