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

用VB.net做一个时间计时器

'添加一个label标签名字label1 用来显示时间

'再添加一个timer控件 名字timer1 interval属性=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

相关问答

Q1: 怎样用vb.net做毫秒计时器（有没有什么类似于ccrptmr之类的控件）

不需要控件就可以vb.net毫秒计时器，用多线程vb.net毫秒计时器的方式实现vb.net毫秒计时器，在窗体上放一个Label和一个button按钮vb.net毫秒计时器，代码如下vb.net毫秒计时器：

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

Q2: VB.NET 计时器的问题

不对。步骤如下：

添加一个label标签名字label1 用来显示时间

再添加一个timer控件 名字timer1 interval属性=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

Q3: 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"窗口，点击运行，一个简单的计时器软件就做好了。

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

elapsed.Milliseconds 获取毫秒。

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

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

Q5: VB.NET,如何用TIMER控件计时

这种功能用不到TIMERvb.net毫秒计时器，TIMER控件用在这种地方也不适合。（假如你所统计的时间很短vb.net毫秒计时器，在几分中内话vb.net毫秒计时器，可以使用vb.net毫秒计时器，假如你统计的时间很长：几小时、几天几夜，建议改用以下方式）：

在你需要开始计时的地方加入一个记录当前时间，在你想结束的地方也得到一个当前时间。然后将两个时间相减。

希望以上思路可以帮到你。

vb.net毫秒计时器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net毫秒计时器的信息别忘了在本站进行查找喔。