DoEvents

---

構文

DoEvents()

引数はありません。

解説

発生したイベントがオペレーティングシステムによって処理されるように制御を戻します。

時間のかかる処理を実行している場合、ユーザーが行った操作は処理が終了するまでオペレーティングシステムに渡りません。処理を中断するような場合は、DoEvents関数で一時的にオペレーティングシステムに制御を移し、イベントの処理を行います。

サンプル

次の例は、Forループの実行中Command1がクリックされると処理を中断します。

Dim fStop As Boolean        'グローバル変数を宣言
Sub Sample()
    Dim i As Long
    fStop = False
    For i = 1 To 500000
        DoEvents
        If fStop = True Then
            MsgBox "処理が中断されました"
            Exit For
        End If
    Next i
End Sub
Private Sub Command1_Click()
    fStop = True
End Sub