一定間隔を待たせるには？ (ID:76735)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

あなたのコードを尊重するならこう

Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
    Call 時間wait("00:00:03") '3秒待たせる
End Sub
Private Sub 時間wait(t As String)
    Dim StartTime As Long
    Dim KeikaJikan As Long
    Dim t2 As Double
    
    'ミリ秒に換算
    t2 = CDate(t) * 86400 * 1000
    
    
    'スタートの時刻を記憶
    StartTime = timeGetTime()
    
    Do Until KeikaJikan >= t2
        DoEvents
        'スタートからの差を計算
        KeikaJikan = timeGetTime() - StartTime
        DoEvents
    Loop
End Sub

やや不正確だがTimerを使うなら、たとえばこう
(TimerにはWin95でせいぜい55msec程度の精度しかない。)

Option Explicit
Dim KeikaJikan As Long
Private Sub Command1_Click()
    Call 時間wait("00:00:03") '3秒待たせる
End Sub
Private Sub 時間wait(t As String)
    Dim t2 As Double
    
    '秒に換算
    t2 = CDate(t) * 86400
    KeikaJikan = 0
    Timer1.Interval = 1000
    Timer1.Enabled = True
    
    Do Until KeikaJikan >= t2
        DoEvents
    Loop
    Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    KeikaJikan = KeikaJikan + 1
End Sub

一番簡単なのはこう

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    Dim t2 As Long
   'ミリ秒に換算
    t2 = CDate("00:00:03") * 86400 * 1000
    Sleep t2
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る