普通form的问题

Question

在普通的form里 我如何在关闭的时候用vbyesno的msgbox来判断是否关闭窗体？如果是则关 否则不关闭窗体

Answer 1

form_Unload的时候弹出对话框，response=vbyes就关闭，否则

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim i As Integer
 i = MsgBox("是否关闭", vbYesNo)
 If i = vbYes Then
    Cancel = False
 Else
    Cancel = True
 End If
End Sub