VB 退出软件问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 09:22:25
我在 “退出” 按钮的语句中有 Msg对话框，若YES 就退出，
但直接点窗口的X 就没有对话框直接退出 。
怎样点X时野出现对话框？

Private Sub Form_Unload(Cancel As Integer)
Dim IntR As Integer
IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
If IntR = vbNo Then Cancel = -1
End Sub

多给点分吧！

应该用command_click事件才对
在这个事件中添加下面代码
a=MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
if a=vbyes then end
如果是Form_Unload则点击X也会提示的