7,785
社区成员
发帖
与我相关
我的任务
分享窗体退出问题
在窗体中当我想退出时我可以加一个按钮
If MsgBox("您确定要退出软件吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK Then
End
Else
Exit Sub
End If
可在窗体的Private Sub Form_Unload(Cancel As Integer)中这样的代码失效了不管我点确定还是退出都是退出这是为什么我该怎样写？？
If MsgBox("您确定要退出软件吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK Then
End
Else
Exit Sub
End If
可在窗体的Private Sub Form_Unload(Cancel As Integer)中这样的代码失效了不管我点确定还是退出都是退出这是为什么我该怎样写？？
...全文
请发表友善的回复…
发表回复
饮水需思源 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
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
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
贴子回复次数大于跟给分次数
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的使用
关键是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
If MsgBox("你是否要退出局域网消息发送器 ？", 4 + 32 + 256, "局域网消息发送器") = vbYes Then
Cancel = False
End
Else
Cancel = True
End If
End Sub
showflow 2003-05-16
- 打赏
- 举报
同意樓上的
