sleep中に割り込むには？ (ID:113255)

名前

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

本文 下記のようにループ中にDoEventsとSleep関数を併用するのでは だめでしょうか？ 私は、下記の方法で待機しています。他の処理も受付、CPUの負担も軽減 できます。 Private Sub WaitTime(st As Long) '指定の時間待つ（1/1000 秒単位で指定) Dim lngSt As Long lngSt = timeGetTime Do While timeGetTime - lngSt < st DoEvents Sleep 50 Loop End Sub