アプリケーションを強制終了する
アプリケーションを強制終了するサンプルです。
サンプルの実行画面

ソースコード
[FatalAppExit.frm]
'FatalAppExit =>メッセージボックスを表示して、アプリケーションを終了させる '<引数> 'uAction& : 0を入れる。又はhwndを入れる(一応確認済)。 'lpMessageText: メッセージテキストを入れる変数です。 '@戻り値@ ' なし Private Declare Sub FatalAppExit Lib "KERNEL32" Alias "FatalAppExitA" (ByVal uAction&, ByVal lpMessageText$) 'FatalExit =>アプリケーションの実行を強制的に終了する '<引数> 'code:エラーコードとメッセージ '@戻り値@ 'なし Private Declare Sub FatalExit Lib "KERNEL32" (ByVal code&) Private Sub Command1_Click() FatalAppExit 0, "注:これはサンプルですよ(^^" + vbCrLf + _ "このプログラムは何か悪い事をしたので強制終了します" End Sub Private Sub Command2_Click() Dim WK As Long WK = 100 / 0 FatalExit WK End Sub
ソースコード一式のダウンロード
vbapi_fatalappexit.zip 1.05 KB (1,079 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | Windowsを終了、再起動させる |
次の記事: | システムに関する各種情報を取得する |
公開日:2015年03月05日
記事NO:00385
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte