VB6怎么撤销程序的关闭事件

答案:3 悬赏:0

解决时间 2021-01-17 11:53

提问者网友：wodetian
2021-01-17 05:29

VB6怎么撤销程序的关闭事件

最佳答案

二级知识专家网友：妄饮晩冬酒
2021-01-17 05:46

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("确认退出？", vbQuestion + vbYesnNo, "退出程序") = vbNo Then
        Cancel = 1
    End If
End Sub
Cancel 设为 1 即可。

全部回答

1楼网友：污到你湿
2021-01-17 07:18

unload只是隐藏当前窗体，没有关闭啊。
你也可以先弹窗问问时候推出，点了是再unload不就行了。
追问：拜托unload是把窗体卸载掉。。
我指的是当别人点了窗体的那个大红叉的时候怎么办？？
追答：你可以不用默认的大红叉= =自己在右上角做个按钮= =
追问：算了吧。。。我请求别的大神。。

2楼网友：逃夭
2021-01-17 06:32

完整代码：Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否退出程序？", vbInformation + vbOKCancel) = vbCancel Then
Cancel = True '取消退出
End If
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！