プログラムの実行を一定時間だけ停止させる方法

◆概要

　このページは、Visual Basic 6.0において、プログラムの実行を一定時間だけ停止させる方法について記載しています。

タイマーコントロールを使用するのがもっとも簡単ですが、停止時間が長くなると誤差が生じる可能性があります。その場合は、Now 関数を使って一定間だけプログラムを停止させるようにできます。

まず、フォームにコマンドボタンを１つ、テキストボックスを3つ貼り付けてください。次に、以下のコードを記述します。実行しコマンドボタンをクリックすると約10秒間プログラムが停止した後実行が再開されます。 

Private Sub Command1_Click()
    Dim t1 As Date
    Dim t2 As Date

    t1 = Now
    Text1.Text = "10秒間プログラムを停止します"
    Do
        t2 = Now
        ' プログラム停止の開始時刻
        Text2.Text = t2
        ' プログラム再開予定時刻
        Text3.Text = t1 + TimeSerial(0, 0, 10)
        If t1 + TimeSerial(0, 0, 10) <= t2 Then Exit Do
        DoEvents
    Loop

    Text1.Text = "プログラムを再開しました"

End Sub


▼ページトップへ