关于vb.net+计时到毫秒的信息

vb中怎样精确计时,精确到ms返回开机以来经历的时间(以毫秒计)
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
或者返回系统当前时间(精确到毫秒)
【关于vb.net 计时到毫秒的信息】Public Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
怎样用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计时器怎么用需要准备的工具:电脑,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,如何用TIMER控件计时这种功能用不到TIMER , TIMER控件用在这种地方也不适合 。(假如你所统计的时间很短 , 在几分中内话 , 可以使用,假如你统计的时间很长:几小时、几天几夜 , 建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间,在你想结束的地方也得到一个当前时间 。然后将两个时间相减 。
希望以上思路可以帮到你 。
vb.net毫秒计时器代码问题elapsed.Milliseconds 获取毫秒 。
每100毫秒,do中的代码执行一次,执行时间将大于100毫秒,这是产生误差的地方之一 。invoke执行一个方法txt , 必须等txt里面的代码运行完毕,方法才能返回 , 期间占用的时间全是“误差” 。
无限循环,且没有退出机制,停不下来 。
vb.net 计时到毫秒的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于、vb.net 计时到毫秒的信息别忘了在本站进行查找喔 。

    推荐阅读