一个在VB6定时器

一个秒表是一种工具，... 噢，我不认为这是适当的解释什么是秒表 ，而应该了解如何使一个 Visual Basic 6。

该功能非常简单：一个启动按钮，将停止秒表即将开工，计数从秒的时间同时。

按一下按钮，而其标题是停止，时钟将重置本身和停止。

我们创建了一个在我们的VB6的副本，并创建一个新的EXE形式，加入一个标签，一个命令和一个计时器：

已分配标签的名称，按钮的控件的名称，并指定名称的定时器时间。

我们双击计时器，并添加以下代码：

私人小组tempo_Timer（）



    



 conta.Caption conta.Caption + 1 =







 END SUB

刚去增加一个单位的标签值。

越复杂的代码应用到按钮：

私人小组comando_Click（）



    



如果comando.Caption =“开始”，然后



        



 tempo.Enabled = TRUE



        



 comando.Caption =“停止”



        



呼叫tempo_Timer



        



 tempo.Interval = 1000



    



其他



        



 tempo.Enabled =假



        



 comando.Caption =“开始”



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



结束如果







 END SUB

我们先检查一下，他是capition开始在这种情况下，我们走，为了：

• 启用计时器运行;
• 重命名从开始到停止按钮的标题;
• 调用函数的递增定时器;
• 设置第二个（1000）间隔定时器运行。

此时时钟已经消失，将如下所示：

再次点击停止，在运行时，程序将进入拍卖条件块，并履行下列职责：

• 禁用定时器;
• 改变按钮的标题从停止到启动;
• 停止的时间间隔;
• 重置秒表的价值。