基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

时间计时器，学VB入门实例

Option Explicit
Private A As Integer, SS As Double, T1 As Date, T2 As Date

Private Sub Form_Load()     '软件打开时初始化
    A = 0: SS = 0: T1 = Now(): T2 = Now()
End Sub

Private Sub Timer1_Timer()    '刷新显示
    Label5.Caption = Format(Now, "Long Time")   '显示当时时间
    If A = 1 Then   '允许计时
        SS = DateDiff("s", T1, Now)
        Label2.Caption = SS Mod 60
        Label3.Caption = Int((SS Mod 3600) / 60)
        Label4.Caption = Int(SS / 3600)
    End If
End Sub

Private Sub Command1_Click()    '开始暂停
    If A = 1 Then   '按下暂停
        A = 2: T2 = Now()
    Else   '按下开始或继续
        A = 1: T1 = DateAdd("S", -DateDiff("s", T1, T2), Now())
    End If
End Sub

Private Sub Command2_Click()    '停止清零
    Label2.Caption = "0": Label3.Caption = "0": Label4.Caption = "0"
    A = 0: T1 = Now(): T2 = Now()
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '关闭软件时
End Sub