vb关闭问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 07:21:58
关闭程序时弹出关闭对话框 怎么做到的 谢谢。。。

Private Sub Form_Unload(Cancel As Integer)
MsgBox "确定退出吗？", 48, "提示"

End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "确定退出吗？", vbOKCancel, "提示"
End Sub

Private Sub Form_Unload(Cancel As Integer)
dim a
a=MsgBox （"确定退出前保存更改吗？",vbYesNoCancel, "提示"）
if a=vbyes then
添加如果选“是”的代码
end if
……
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "确定退出吗？", 48, "提示"

End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "确定退出吗？", vbOKCancel, "提示"
End Sub

这个看自己程序选择！