timeSetEventでEXE実行時に無限ループ (ID:111054)

名前

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

本文

APIのtimeSetEvent関数を使用し、一定時間待ち合わせるという処理を作ったのですが、EXEで実行した場合に無限ループになってしまいます。
VBから実行する場合はちゃんとできるのですが…

↓↓↓こんな感じのソースです↓↓↓

Private Sub WaitTime(Interval As Long)

Dim lngResult As Long

'秒→ミリ秒
    Interval = Interval * 1000

' タイマイベントを開始
    gTimerId = _
        timeSetEvent( _
            Interval, _
            0, _
            AddressOf TimeProc, _
            0, _
            TIME_PERIODIC)
    
    'タイマイベントが発生するまでWAIT（空ループ）

Do While (gTimerId <> 0)
                              →→ここで無限ループになってしまいます。    
                              でも、ここに、デバッグ用の処理を入れたら、
                              EXE実行でも無限ループにはなりませんでした

’デバッグ用に入れてみた処理
                            FRM_P21G1010.Text1 = gTimerId
                            FRM_P21G1010.Refresh

Loop

lngResult = timeKillEvent(gTimerId)

End Sub

'Interval分時間が経過し、タイマイベントが発生したら、ココが実行される
Function TimeProc _
       (ByVal uID As Long, _
        ByVal uMsg As Long, _
        ByVal dwUser As Long, _
        ByVal dw1 As Long, _
        ByVal dw2 As Long) As Long
    
    gTimerId = 0
    
End Function

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

戻る