DoEventsをうまく使う | Sunvisor Lab.

AccessのVBAで時間のかかる処理をすると，画面が更新されなかったり，Windowsから（応答なし）扱いされたりします。それをさけるためには，DoEventsを呼び出すのですが，なにも考えずに呼び出すとパフォーマンスが大幅に低下します。これをなんとかしようという試みです。 まずは「DoEventsをパフォーマンスを下げずに使う方法」というページに紹介されていた手法を使ってみます。 Private Declare Function GetInputState Lib "USER32" () As Long Public Sub CheckEvents() If GetInputState() Then DoEvents End If End Sub これは，GetInputState APIをコールして，待機中のイベントがあればDoEventsをコールするというものです。このCheckE