VB6のタイマー

ストップウォッチは、そのツールです... まあいいけど、私はそれはストップウォッチで 、Visual Basic 6を作る方法を理解すべきかを説明するために適切ではないと思います。

機能は非常に単純です：ストップウォッチを停止する[スタート]ボタンは、その間の時間の秒数をカウント、まもなく開始されます。

そのキャプションが停止しているときに、再度ボタンをクリックすると、クロックは自動的にリセットして停止します。

我々は、VB6の私達のコピーで新しいEXEを作成し、ラベル、コマンドとタイマーを追加し、フォームを作成します。

ラベルは、ボタンコントロールの名前を名前を持つ割り当て、タイマーの時間に名前を割り当てます。

我々は、タイマーをダブルクリックし、次のコードを追加します。

プライベートサブtempo_Timer（）



    



 conta.Caption conta.Caption + 1 =







 End Subの

単にユニットのラベルの値を増やすに進みます。

より複雑なコードをボタンに適用できます。

プライベートサブcomando_Click（）



    



もしその後、comando.Caption ="スタート"



        



 =真tempo.Enabled



        



 comando.Captionは="停止"



        



コー​​ルtempo_Timer



        



 tempo.Interval = 1000



    



他



        



 tempo.Enabled =偽



        



 comando.Captionは="スタート"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



最後の場合







 End Subの

我々は彼が我々が行っている場合に、順番に、capitionのスタートであることを最初に確認：

• 実行するタイマーをイネーブルにします。
• スタートからストップまでのボタンのキャプションの名前を変更。
• 関数を呼び出すためにその刻みタイマー。
• 秒（1000）インターバルタイマー実行を設定する。

この時点で時計がなくなって、次のようになります。

停止するには、もう一度クリックして、実行時に、プログラムでは、Else条件ブロックを入力し、次の機能を実行します。

• タイマーを無効にします。
• からボタンのキャプションを変更すると、スタートして停止します。
• 間隔を停止する。
• ストップウォッチの値をリセットする。