锐客网

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

包含vb.net计时显示毫秒的词条

IT技术时间

怎么在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
End Sub
怎样用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
【包含vb.net计时显示毫秒的词条】'定义一个线程
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计时器怎么用需要准备的工具：电脑，VB6.0程序设计软件 。
1、首先打开VB6.0程序设计软件，到程序新建工程主界面 ， 如下图：
2、然后双击新建工程里的”标准 exe“进入工程1（forml）如下图:
3、在左边工具栏窗体上先加载一个计时器控件 如图：
4、加载好计时器控件后 ， 我们在当前计时器控件下面加载一个标签 。
5、为了使加载的标签在运行时能把它看清楚，通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去  ， 如图：
6、接下来，我们将当前标签右边的属性名称改为”L1“如图:
7、我们开始修改计时器的属性，接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒，就是1秒钟让它产生一次事件，如图 :
8、双击计时器控件，开始编写计时器程序，”L1.caption=time”如图：
9、然后返回“form"窗口，点击运行 ， 一个简单的计时器软件就做好了 。
VB.NET 计时器的问题不对 。步骤如下：
添加一个label标签名字label1 用来显示时间
再添加一个timer控件 名字timer1interval属性=1000 用来计时
窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:"t.TimeOfDay.ToString
End Sub
vb.net计时显示毫秒的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net计时显示毫秒的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：固态硬盘怎么去除密码锁，固态硬盘如何解密

下一篇：串口硬盘怎么接主板，串口硬盘能接并口主板吗