窗体退出问题

forrestsun 2003-05-16 12:50:34

在窗体中当我想退出时我可以加一个按钮
If MsgBox("您确定要退出软件吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK Then
End
Else
Exit Sub
End If
可在窗体的Private Sub Form_Unload(Cancel As Integer)中这样的代码失效了不管我点确定还是退出都是退出这是为什么我该怎样写？？

...全文

38 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

饮水需思源 2003-05-16

打赏
举报

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您确定要退出软件吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK then
End
Else
Cancel = -1
Exit Sub
End If

End Sub

bydisplay 2003-05-16

打赏
举报

Private Sub Command1_Click()

If MsgBox("您确定要退出软件吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK Then
End
Else
Exit Sub
End If

End Sub

bydisplay 2003-05-16

打赏
举报

因为窗体本身已经unload

forrestsun 2003-05-16

打赏
举报

我想结贴可总提示我这个是为什么
1,1,5,1,8,1,2,1
贴子回复次数大于跟给分次数

u04462 2003-05-16

打赏
举报

Private Sub Form_Unload(Cancel As Integer )

msg = MsgBox("要退出CTR监视系统否?", vbApplicationModal + vbYesNo + vbQuestion, "提示")
If msg = 6 Then
Unload Me
End
ElseIf msg = 7 Then
Cancel = True

End If

End If

forrestsun 2003-05-16

打赏
举报

谢谢各位的帮助了

lxcc 2003-05-16

打赏
举报

赞同 lihonggen0(李洪根,用.NET，标准答案来了) ( )
关键是cancel的使用

youxia001 2003-05-16

打赏
举报

不清楚你的意思？

lihonggen0 2003-05-16

打赏
举报

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你是否要退出局域网消息发送器？", 4 + 32 + 256, "局域网消息发送器") = vbYes Then
Cancel = False
End
Else
Cancel = True
End If
End Sub

showflow 2003-05-16