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

概述  Option Explicit Dim starttime As Variant, endtime As Variant Private Sub cmdend_Click()         endtime = Now             '捕获现在的时间         Timer1.Enabled = True     '计时器不可用         txt3.Text = Forma

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

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

总结

以上是内存溢出为你收集整理的VB工程--实例63--秒表计时器全部内容，希望文章能够帮你解决VB工程--实例63--秒表计时器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。