１４．アプリケーションの強制終了（画面）を呼び出し方法



＜　使用用途　＞
キャンセルエラーなどで使えると思います。
よくシステムエラーかなんかでよく見かける白い画面で「プログラムエラー」と表示しているやつです。

今回はフォームモジュール一つだけにしたのでサンプルソースをダウンロード出来るようにしました　
　　　＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数の　FatalAppExit　と　FatalExit　を使用します（両方とも強制終了）。

FatalAppExit　＝＞メッセージボックスを表示して､アプリケーションを終了させる　
　　＜引数＞
　　　　　uAction&　　　　　 ：　０を入れる。又はhwndを入れる（一応確認済）。
　　　　　lpMessageText$　 ：　メッセージテキストを入れる変数です。

　　＠戻り値＠
　　　　　なし

FatalExit　＝＞アプリケーションの実行を強制的に終了する
　　＜引数＞
　　　　　code&　：　エラーコードとメッセージ　

　　＠戻り値＠
　　　　　なし

<　ＳＡＭＰＬＥ　＞
'このサンプルソースは全てフォーム１つだけの処理です
'アプリケーションの強制終了の宣言
Option Explicit
Private Declare Sub FatalExit Lib "KERNEL32" (ByVal code&)
Private Declare Sub FatalAppExit Lib "KERNEL32" Alias "FatalAppExitA" (ByVal uAction&, ByVal lpMessageText$)

'コマンドボタン１の処理はメッセージボックスを表示して強制終了するサンプル
Private Sub Command1_Click()
　　　　　FatalAppExit 0, "注：これはサンプルですよ（＾＾" + vbCrLf + _
　　　　　　　　　　　　　　　 "このプログラムは何か悪い事をしたので強制終了します"
End Sub

'コマンドボタン２の処理は１００を０で割ってエラー値のエラーコードを表示して強制終了するサンプル
Private Sub Command2_Click()
　　　　　Dim WK As Long
　　　　　
　　　　　WK = 100 / 0
　　　　 FatalExit WK
End Sub