求VB关闭窗口提示保存代码!!

来源：百度知道 编辑：UC知道 时间：2024/06/14 18:30:35
就像记事本文档有内容然后你点击关闭窗口会有MSGBOX提示是否保存该文档内容``
谢谢你`不过MSGBOX的提示是有取消项的,然后我点击"取消"的时候,功能跟点击"否"是一样的~!
要怎样改进呢?

Private Sub Form_Unload(Cancel As Integer)
a = MsgBox("是否保存?", vbYesNoCancel + vbQuestion, "提示")
If a = vbYes Then
'调用保存代码,然后就退出
Else
'不保存退出
ElseIf a = vbCancel Then
Cancel = 0 ' 不退出也不保存
End Sub

End Sub

Private Sub Form_Unload(Cancel As Integer)
a = MsgBox("是否保存", vbYesNo, "提示")
If a = vbYes Then
'调用保存代码
Else
Cancel = 0
End If
End Sub
这一句也可以不用
Else
Cancel = 0

VB本来就有这个功能