戻る

フォームを閉じる際に確認メッセージを表示する方法
動作環境 Windows95/98 開発環境 Visual Basic 6.0 (+SP3)
説明 フォームの「閉じる」ボタンをクリックした際に、確認メッセージを表示します。
用意するもの：標準フォーム(Form1)

'QueryUnload イベントは、フォームが閉じられる直前に発生します。
'QueryUnload イベントの第1引数に 0 以外の値を設定すると、QueryUnload イベントの発生が中止され、
'フォームは閉じられません。


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim rtVal As Integer

rtVal = MsgBox("フォームを閉じますか？", _
vbYesNo Or vbDefaultButton2 Or vbQuestion, _
"確認メッセージ")

'メッセージボックスの"はい"が選択された場合...
If rtVal = vbYes Then
'第1引数に False(=0) を設定します(フォームが閉じられます)。
Cancel = False
'メッセージボックスの"いいえ"が選択された場合...
ElseIf rtVal = vbNo Then
'第1引数に Ture(=-1) を設定します(QueryUnloadイベントが中止されます)。
Cancel = True
End If

End Sub