戻る

終了確認

目的

アプリケーションの終了時にユーザへ確認します。

ポイント

FormのQueryUnloadイベントのCancel引数に-1を代入することによってフォームがアンロードされることを防ぐことができます。 注意：Endステートメントが実行された場合QueryUnloadイベントは実行されません。

サンプルコード

Option Explicit Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' 終了確認サンプル     Dim intRes As Integer          intRes = MsgBox("終了しますか？", vbYesNo + vbQuestion + vbDefaultButton2)                    If intRes = vbNo Then                  Cancel = -1          End If      End Sub Private Sub cmdClose_Click() ' 閉じる     Unload Me      End Sub

ソースのダウンロード