主题：vb窗体关闭之前弹出提示如何实现?
wfytjdandan
[专家分：50] 发布于 2010-03-29 20:18:00
这是我自己写的代码，但是有时候可以，有时候点窗体的叉叉按钮没有用，就是窗体关闭不了，也不弹出消息框，请教高手什么问题啊，谢谢？
Private Sub Form_Unload(Cancel As Integer)
Dim Choice As VbMsgBoxResult
Choice = MsgBox("您确定要退出该系统吗？", vbYesNo + vbQuestion, "提示")
If Choice = vbNo Then
Cancel = 1
Form1.Show
Else
Cancel = 0
End If
End Sub
回复列表 （共4个回复）
沙发
tanchuhan [专家分：15140] 发布于 2010-03-29 23:32:00
Private Sub Form_Unload(Cancel As Integer)
Cancel = (MsgBox("您确定要退出该系统吗？", vbYesNo + vbQuestion, "提示") = vbNo)
End Sub
板凳
google5 [专家分：30] 发布于 2010-04-01 13:18:00
MsgBox("您确定要退出该系统吗？", vbYesNo + vbQuestion, "提示")
这个中间的按钮可以有数字和或者？+？+？实现啊。。。。。值都有规定啊。你试试。。。。加我qq 7192493 我们讨论下
3 楼
google5 [专家分：30] 发布于 2010-04-01 13:19:00
Form_Unload
你用的是卸载啊！！！！！要load ，关闭按钮菜奇效的
4 楼
shijimin [专家分：0] 发布于 2010-04-23 14:31:00
Private Sub Form_Unload(Cancel As Integer)
Dim Choice As VbMsgBoxResult
Choice = MsgBox("您确定要退出该系统吗？", vbYesNo + vbQuestion, "提示")
If Choice = vbNo Then
Cancel = True
' Form1.Show 此句可以不用
Else
Cancel = False
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
我测试以上语句，在我的电脑上运行良好，点窗体的叉叉按钮也有用的，是否是你的系统有问题？？
我来回复
您所在位置：