Option Explicit
Private Declare Sub Sleep Lib "KERNEL32.dll" _
(ByVal dwMilliseconds As Long)
Sub SleepSample()
' 2秒間処理を停止する場合 '
Sleep 1000 * 2
End Sub
ポイントはスリープ関数(API)の宣言を行うことと、処理を停止する時間をミリ秒単位で指定することの二点です。
1000ミリ秒=1秒なので、例では "1000 * 停止したい秒数" としていますが、直接"Sleep 2000" と指定しても全く問題ありません。
0 件のコメント:
コメントを投稿