" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB窗体QueryUnload事件实例代码

程序设计2005-05-09 itlogger阅读(726) 评论(0)

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樵客
文章地址:http://www.itlogger.com/program/72.html
标签:
相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注