vb计时器

发布网友 发布时间：2023-07-12 04:52

我来回答

共4个回答

热心网友 时间：2024-11-22 20:32

VB计时器其实就是在设定的时间间隔，每隔一段时间执行一次。
如：
Private Sub Form_Load()
Timer1.Enabled = True ‘打开计时器
timer1.Interval=1000 ’设置计时器间隔为1秒
End Sub
Private Sub Timer1_Timer()
Static i% '定义 i 为 一个静态变量
i = i + 1 ‘每秒 i 累加 1
Print i ’输出 i 的结果

程序运行的结果为：1
2
3
。
。

End Sub

热心网友 时间：2024-11-22 20:32

可以使用以下代码，此程序没有使用时间控件，精确度为百分之一秒，不存在时间控件每秒只能触发18次的*，粘贴代码时注意把控件名和代码里的控件名相对应，有问题消息我

Dim blnStop As Boolean
Dim sngPauseTime As Single
Dim sngTime As Single

Private Sub cmdPause_Click()
blnStop = False
sngPauseTime = sngTime
cmdStart.Enabled = True
End Sub

Private Sub cmdRsest_Click()
blnStop = False
Label1.Caption = "0:0:0.00"
sngPauseTime = 0
sngTime = 0
cmdStart.Enabled = True
cmdStart.Caption = "开始"
End Sub

Private Sub cmdStart_Click()
Dim sngNow1 As Single
Dim iHour As Integer
Dim iMinute As Integer
Dim iSecond As Integer
Dim iMSecond As Integer
cmdStart.Caption = "继续"
cmdStart.Enabled = False
sngNow1 = Timer
blnStop = True
Do
DoEvents
If blnStop = False Then Exit Do
sngTime = Timer - sngNow1 + sngPauseTime
iHour = sngTime \ 3600
iMinute = (sngTime - iHour * 3600) \ 60
iSecond = (sngTime - iHour * 3600 - iMinute * 60) \ 1
iMSecond = Val(Mid(sngTime, InStr(sngTime, ".") + 1, 2))
Label1.Caption = iHour & ":" & iMinute & ":" & iSecond & ":" & iMSecond
Loop
End Sub

热心网友 时间：2024-11-22 20:33

你只需要在计时器前指定窗口名即可！
如开始时：Form1.Timer1.Enabled
=
True
结束时：Form1.Timer1.Enabled
=
False
这样计时器就可以一直工作了，你在最后一页的时候指定一个结束就好了！然后显示计时结果！

热心网友 时间：2024-11-22 20:33

不知道你要用VB计时器实现什么样的功能呢？