VB工程--实例63--秒表计时器

 

Option Explicit
Dim starttime As Variant, endtime As Variant

Private Sub cmdend_Click()
        endtime = Now             '捕获现在的时间
        Timer1.Enabled = True     '计时器不可用
        txt3.Text = Format(endtime - starttime, "hh:mm:ss")
End Sub

Private Sub cmdstart_Click()
        txt1.Text = Time          '在第一个文本框中显示当前时间
        starttime = Now           '捕获开始时间
        Timer1.Enabled = True     '计时器可用
End Sub

Private Sub Timer1_Timer()
        txt2.Text = Time          '在