VB 在退出时怎么弹出提示,是否真的退出窗口

弹出窗口里面有个确定和取消,那种窗口 是怎么弄的
2024-11-07 01:47:04
推荐回答(5个)
回答(1):

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("未保存,确定退出?", vbOKCancel, "提示") = vbCancel Then
    Cancel = 1
    End If
End Sub

效果如图:

回答(2):

把一楼的改一下,就变成了关不了的窗口😄

Private Sub Form_Unload(Cancel As Integer)
myexit = MsgBox("看完才能退出哦", vbExclamation + vbYesNo + vbDefaultButton, "哼...")
Cancel = True
End Sub

回答(3):

在关闭窗体的时候触发几个事件,可以在两个事件过程(sub)中来处理
首先是 Form_QueryUnload,其次是 Form_Unload,取其一即可

可以自己复制代码测试以下

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = MsgBox("您果真要退出?", vbYesNo, "来自:Form_QueryUnload") = vbNo
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = MsgBox("您果真要退出?", vbYesNo, "来自:Form_Unload") = vbNo
End Sub

回答(4):

看我的,给你优化一下:

Private Sub Form_Unload(Cancel As Integer)
myexit = MsgBox("您果真要退出?", vbExclamation + vbYesNo + vbDefaultButton2, "退出确认...")
If myexit = vbNo Then
Cancel = True
End If
End Sub

回答(5):

Private Sub Form_Unload(Cancel As Integer)
Dim r As VbMsgBoxResult
r = MsgBox("是否真的关闭窗口?", vbOKCancel)
If r = vbOK Then
Cancel = -1
Else
Cancel = 0
End If
End Sub