关于vb.net精确计时器的信息

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

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

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

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

相关问答

Q1: 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

Q2: VB.net module中如何使用计时器？

控制台调用Timer和窗体是类似vb.net精确计时器的。首先在项目引用里面加入System.Windows.Forms程序集vb.net精确计时器，然后在代码顶部引入命名空间：

Imports System.Windows.Forms

在控制台vb.net精确计时器的Module中声明一个计时器：

Private WithEvents Timer1 As New Timer()

把计时器vb.net精确计时器的Tick事件静态绑定到处理函数中：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

'一些代码

End Sub

在需要开始计时的地方vb.net精确计时器，修改其Interval、Enabled属性：

Timer1.Interval = 1000

Timer1.Enabled = True

Q3: VB计时器怎么用

需要准备的工具vb.net精确计时器：电脑vb.net精确计时器，VB6．0程序设计软件。

1、打开VB6．0vb.net精确计时器，新建一个工程vb.net精确计时器，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框，将界面设置成下图：

2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅、黄色。

3、双击“设置倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

a＝InputBox（＂请输入倒计时时间（以分为单位）：＂，＂倒计时输入框＂

4、双击“启动倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

Timer1．Interval＝1000＇设置计时器为一秒发生一次

Timer1．Enabled＝True＇激活计时器

If a 60 Then

m＝a

Else

h＝s＼60

m＝aMod60

EndIf

m＝m－1

s＝60

5、双击“计时器”控件，进入代码编辑窗口，输入如下代码：

s＝s－1

If s = 0 And m 0 Then

s＝60

m＝m－1

EndIf

If m = 0 And h 0 Then

h＝h－1

m＝59

s＝60

6、VB6．0制作倒计时计时器在代码编辑窗口的通用段进行变量定义：

Dim h As Integer，m As Integer，s As Integer＇分别存储时分秒

Dim a AsInteger

7、双击窗体，进入代码编辑器，在Form＿Load事件中写入代码：

Timer1．Enabled＝False＇先关闭计时器

8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定，如图：

9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现vb.net精确计时器了倒计时功能，如图：

Q4: VB.net做计时器。。。

加个timervb.net精确计时器，两个label，以下是代码:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then

MsgBox("超过3小时vb.net精确计时器了！", , "信息提示")

Timer1.Enabled = False 'timer终止，不然会一直谈对话框！

End If

End Sub

Q5: VB.net 如何设定准确的1秒时间？

form vb.net精确计时器的load事件中加一句vb.net精确计时器：timer1.interval=1000

在一个按钮里面加入一句触发timer事件开始计时vb.net精确计时器的代码vb.net精确计时器：

timer1.enabled=true

timervb.net精确计时器的tick事件中加入这么两句：

textbox1.backcolor=color.red

timer1.enabled=false

关于vb.net精确计时器和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。