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 即可。
If MsgBox("确认退出？", vbQuestion + vbYesnNo, "退出程序") = vbNo Then
Cancel = 1
End If
End Sub
Cancel 设为 1 即可。
全部回答
- 1楼网友：污到你湿
- 2021-01-17 07:18
unload只是隐藏当前窗体，没有关闭啊。
你也可以先弹窗问问时候推出，点了是再unload不就行了。
追问：拜托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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯