|
ぐうぐう さん、ちゃっぴさん今晩は、ちんといいます。
API関数の「SLEEP」を使用してはどうでしょうか。
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub a1()
Debug.Print "Start Time=" + Format(Time, "hh:mm:ss")
For i1 = 1 To 100
Sleep (20)
Next i1
Debug.Print "END Time=" + Format(Time, "hh:mm:ss")
End Sub
1ミリ単位から指定できます。(Sleep(1))
以上、参考までに・・・
▼ぐうぐう さん:
>はじめまして。
>タイマーイベントをミリ秒単位で
>発生させる方法をご存知の方がいたら教えていただけないでしょうか。
>
>現在はしたのようにしていますが
>next_on = Now() + TimeValue("00:00:03")
>Application.OnTime Next_on, "GOGO"
>
>next_onにミリ秒単位で指定したいのです。
>
>よろしくお願いします。
>
|
|