private sub Form_QueryUnload(Cancel as integer,UnloadMode as integer)
‘参数 Cancel(设置为True可拒绝卸载窗体) UnloadMode为触发事件的模式.
select case UnloadMode
case vbFormControlMenu ‘=0
case vbFormCode ‘=1
case vbAppWindows ‘=2
case vbAppTaskManager ‘=3
case vbFormMdiForm ‘=4
case vbFormOwner ‘=5
end select
end
上边的循环语句可以改成
select case UnloadMode
case 0 to 5
if msgbox(“你确定要退出程序吗？,vbyes+vbno)=vbno then Cancel=True
end select
这样就不管你的程序是按ALT+F4或是点X按钮还是其它模式都可以弹出MSGBOX窗体。 …
转载请注明 ：IT樵客
