● アプリケーションの実行を強制的に終了する ●
自分用メモ。使う機会はなさそう。

'メッセージボックスを表示して、アプリケーションを終了させる
Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

'アプリケーションの実行を強制的に終了する
Declare Sub FatalExit Lib "kernel32" Alias "FatalExit" (ByVal code As Long) 

Private Sub Command1_Click()

    'メッセージボックスを表示して、アプリケーションを終了させる
    Call FatalAppExit(1, "終了します")

End Sub

Private Sub Command1_Click()

    'アプリケーションの実行を強制的に終了する
    Call FatalExit(0&)

End Sub
戻る