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          '在第2个文本框中显示时间
End Sub

原先此个工程已经编写过了，但是这次想不看书，自己独立编写出来时，却遇到了困难。怎么也是想不起代码是如何操作的。我想自己原先的工程是记忆很深刻的。而且这一路走来都是一步一个脚印的过来的。我不知道这是为什么？也许是源于自己刚开始学习，不熟练吧！没事，正常！我会熟练的，加油！！