3

ユーザーがフォームを閉じる前に、確認ボックスを表示したい。

これを行う方法がわかりません。以下のコードを試してみましたが、ユーザーにプロンプ​​トが表示されますが、[いいえ] をクリックするとフォームが閉じます。

Private Sub Form_Close()
    If MsgBox("Test", vbYesNo + vbExclamation, "Confirm close") = vbYes Then
    Else
        Cancel = True
    End If
End Sub
4

1 に答える 1

6

close イベントはキャンセルできませんが、unload イベントはキャンセルできます

Private Sub Form_Unload(Cancel As Integer)

    If MsgBox("Test", vbYesNo + vbExclamation, "Confirm close") <> vbYes Then
         Cancel = True
    End If

End Sub
于 2012-06-19T20:23:29.917 に答える