VB如何返回程序问题

来源:百度知道 编辑:UC知道 时间:2024/05/29 00:06:16
我点了Unload事件,如何用msgbox函数点yes就不退出啊!!!

说白了,如何返回程序,但是又点了交叉
Private Sub Form_Unload(Cancel As Integer)

就是点了这个事件就YES就不退出就NO就退出

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim m
m = MsgBox("确定要退出吗?", vbYesNo)
If m = vbYes Then
Cancel = 1
End If
End Sub

你确定是点 yes 就不退出吗
那也就是点 no 退出了
自己做个退出按钮,
在退出按钮下面写:

x=msgbox("是否退出?",4+32,"提示:")
if x=7 then
unload me
endif

'x=7 表示点 no 按钮