关闭前提示

Question

在用户关闭表单之前,我想用确认框提示.

我不知道该怎么做.我已经尝试了下面的代码,它会提示用户,但是一旦点击"否",它就会关闭表单:

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

Answer 1

您无法取消关闭事件,但可以取消卸载事件

Private Sub Form_Unload(Cancel As Integer)

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

End Sub