秒表计时器

最新推荐文章于 2024-12-23 09:14:46 发布

zgyatou

最新推荐文章于 2024-12-23 09:14:46 发布

阅读量4k

点赞数

分类专栏：技术文章文章标签： timer string vb

本文链接：https://blog.youkuaiyun.com/zgyatou/article/details/73898

版权

技术文章专栏收录该内容

28 篇文章

订阅专栏

用VB实现计时器

Option Explicit
Dim startime As Variant
Dim passtime As Variant
Dim endtime As Variant
Dim msec As Variant
Dim sec As Variant
Dim mn As Variant
_____________________________________________________
Private Sub Cmdstar_Click()
    startime = Now
    Lbl4.Caption = Format(startime, "hh:mm:ss ampm")
    Lbl5.Caption = ""
    Cmdstar.Enabled = False
    Cmdstop.Enabled = True
    timTimeshow.Enabled = True
    msec = 0
    sec = 0
    mn = 0
End Sub
_____________________________________________________
Private Sub Cmdstop_Click()
    endtime = Now
    Lbl5.Caption = Format(endtime, "hh:mm:ss ampm")
    Cmdstar.Enabled = True
    Cmdstop.Enabled = False
    timTimeshow.Enabled = False
    msec = 0
    sec = 0
    mn = 0
End Sub
_____________________________________________________
Private Sub timTimeshow_Timer()
    Dim h As String
    msec = msec + 1
    If msec = 60 Then
    msec = 0
    sec = sec + 1
    End If
    If sec = 60 Then
        sec = 0
       mn = mn + 1
    End If
    If mn >= 60 Then
        mn = 0
    End If
    If sec < 10 Then
        lblTime.Caption = "0" & mn & ":0" & sec & ":" & msec
    End If
    If mn < 10 Then
        lblTime.Caption = "0" & mn & ":0" & sec & ":" & msec
    End If
       'passtime = mn & ":" & sec & ":" & msec
       'lblTime.Caption = Format(passtime, "hh:mm:ss")
    End Sub