退出提示怎么弄啊?

[jasonyuq]

我做的窗体添加数据以后,按返回可以回到上一个界面,但我希望能够在按下返回后跳出一个提示窗口,询问我是否保存,是则保存退出,否则不保存退出,取消则取消退出操作?

[OracleRoob]

在Form_Unload事件中判断是否保存，如果未保存可以设置Cancel = True，来取消关闭。

[OracleRoob]

如果仅仅处理“返回”按钮，可以参考如下代码：

Private Sub Cmd返回_Click()

Dim Response

Response = MsgBox("是否保存？", vbYesNoCancel, "提示信息")

If Response = vbYes Then
'处理保存的代码
ElseIf Response = vbNo Then
'直接退出
Else
'取消退出操作，即Do nothing
End If
End Sub

[jasonyuq]

谢谢您的回答~~能不能请您把代码贴出来呢?那样就太感谢了~~~

[jasonyuq]

问题解决~~谢谢