処理を一時停止してから次の処理をするには？ (ID:82742)

名前

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

本文 私は次のような関数を自分で作っています。 引数に待ちたい時間をmsで設定します。 Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub Wait(TimeWaite As Long) Dim TimeStart As Long TimeStart = timeGetTime Do DoEvents Loop While (timeGetTime - TimeStart < TimeWaite) End Sub