VB6フォームが閉じられるのをキャンセルする

スポンサーリンク

VB6 では、QueryUnload イベントか、Unload イベントで可能ですが、通常は前者を使用します。Cancel 引数に 0 以外の数値をセットすることでキャンセルします。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' メッセージボックスで [いいえ] を選択した場合は、フォームが閉じられるのをキャンセル
Private Sub Form_QueryUnload(ByRef Cancel As Integer, ByRef UnloadMode As Integer)
    If MsgBox("閉じますか?", vbYesNo, "確認") = vbNo Then
        Cancel = 1
    End If
End Sub

関連するリファレンス

準備中です。

スポンサーリンク