VB6フォームが閉じられる原因を取得する

スポンサーリンク

VB6 では、QueryUnload イベントの UnloadMode 引数を参照することで取得可能です。UnloadMode 引数を、QueryUnloadConstants 列挙体のメンバと比較することになります。

サンプルコード

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

VB6.0 以前
Private Sub Form_QueryUnload(ByRef Cancel As Integer, ByRef UnloadMode As Integer)
    Select Case UnloadMode
        Case vbFormControlMenu
            Call MsgBox("コントロール メニューから閉じるを選択しました")
        Case vbFormCode
            Call MsgBox("コードから Unload メソッドを実行しました")
        Case vbAppWindows
            Call MsgBox("Windows のセッションが終了しようとしています")
        Case vbAppTaskManager
            Call MsgBox("タスク マネージャから強制終了しました")
        Case vbFormMDIForm
            Call MsgBox("MDI 親フォームを閉じました")
        Case vbFormOwner
            Call MsgBox("オーナーフォームが閉じました")
    End Select
End Sub

関連するリファレンス

準備中です。

スポンサーリンク