窗体退出问题

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)中这样的代码失效了不管我点确定还是退出都是退出这是为什么我该怎样写??
...全文
10 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
饮水需思源 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
同意樓上的
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-16 12:50
社区公告
暂无公告