Cancel = True导致系统无法关闭的问题

[jiangqiaohua]

我的MDI窗体在关闭的事件里
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

frmUnload.Show , Me
Cancel = True


End Sub

会弹出另外一个窗体
frmUnload 让用户做一些选择

但是出现了一个问题

当 弹出 frmUnload 后
关闭系统的时候回无法关闭

一直停留在那

如果解决这个问题？


让MDIForm_QueryUnload 的事件里有 frmUnload 窗体弹出

但是系统关闭的时候又能结束它？

[supergreenbean]

去掉Cancel=true
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

frmUnload.Show vbModal, Me
'Cancel = True
End Sub

[yxr_2008]

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
if unloadmode=0 then
frmUnload.Show , Me
Cancel = True
end if
End Sub

[Simao]

首先在模块头加上这句声明：
Private Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)
在你系统关闭的时候加上这个试试！ExitProcess（0）就可以退出啦！