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

关闭前提示

1 个答案: