在MDIForm 中点击窗口的关闭系统按钮，怎样才能使MDIForm 中子窗口不关闭呢？
在MDIForm 中点击窗口的关闭系统按钮，怎样才能使MDIForm 中子窗口不关闭呢？
现在我在MDIForm 中的Unload事件中有如下代码：
Dim WarnMsg As String
WarnMsg = "Exit System"
If MessageBox(Me.hwnd, WarnMsg, "Show", vbYesNo) = vbYes Then
End
Else
Cancel = True
Exit Sub
End If
但是出现了先关闭子窗口，这是我烦的地方，因为我不想在选择了“No”之后MDIForm中是空的，而是回到原来的界面！
有什么好的方法？在线等待！
问题点数：100、回复次数：5Top
1 楼fling_boy（昨日重现）回复于 2002-11-12 09:28:20 得分 40
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim WarnMsg As String
WarnMsg = "Exit System"
If MessageBox(Me.hwnd, WarnMsg, "Show", vbYesNo) = vbYes Then
End
Else
Cancel = True
Exit Sub
End If
End Sub
Top
2 楼ketao_78（树欲静而风不止）回复于 2002-11-12 09:31:25 得分 10
就是Top
3 楼YAOHE（吆喝）回复于 2002-11-12 09:35:33 得分 10
就是，只要给Unload 事件的Cancel附不同的值就可以了
。Top
4 楼litsnake1（litsnake）回复于 2002-11-12 09:40:39 得分 40
up 一楼
你在unload事件中就算你exit sub了，其实它已经执行了。
只要你进去了就阻止不了unload了。但是
MDIForm_QueryUnload事件先于unload事件，其中的cancel参数正是可以给你反悔用的Top
5 楼CMMcloud（）回复于 2002-11-12 09:43:18 得分 0
fling_boy(男孩(QQ:81526768)) ：
谢谢！解决了！给分！Top
