calligraphy(小九):我试了没成功:(Option ExplicitPrivate Sub QueryUnload() MsgBox ("hello") End Sub我还试了: Option ExplicitPrivate Sub Form1_QueryUnload() MsgBox ("hello") End Sub 也不行:(
你写form1_queryunload 当然没有啦, form_queryunload
你也以试试先拦截窗体消息,然后对WM_SYSCOMAND操作
sub Form_queryUnload() If UnloadMode = QueryUnloadConstants.vbAppTaskManager Or _ //状态栏上点右键 UnloadMode = QueryUnloadConstants.vbAppWindows Then //Alt+F4 或系统关闭
Cancel=True
end ifEnd Dub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("真的退出吗?", vbQuestion + vbYesNo, "提示信息") = vbNo Then Cancel = True Exit Sub End If End Sub
MsgBox ("hello")
End Sub我还试了:
Option ExplicitPrivate Sub Form1_QueryUnload()
MsgBox ("hello")
End Sub
也不行:(
form_queryunload
If UnloadMode = QueryUnloadConstants.vbAppTaskManager Or _ //状态栏上点右键
UnloadMode = QueryUnloadConstants.vbAppWindows Then //Alt+F4 或系统关闭
Cancel=True
end ifEnd Dub
If MsgBox("真的退出吗?", vbQuestion + vbYesNo, "提示信息") = vbNo Then
Cancel = True
Exit Sub
End If
End Sub