说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使窗体右上角的X按钮失效 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
使窗体右上角的X按钮失效 -VB资料

 
  窗体右上角的X按钮通常用来关闭一个程序,这个小X按钮实际上是和系统菜单的“关闭”菜单项关联在一起的,什么?不知道什么是系统菜单,系统菜单是指我们点击窗体左上角的小图标时所弹出的菜单,其中好象有“恢复”、“移动”、“最大化”、“最小化”、“关闭”这么几个按钮。这个菜单用普通的方法是不能编辑和改变的,但是我们可以通过API函数GetSystemMenu来得到它的句柄,然后通过菜单相关的API函数就能改变它了,下面一起看看怎么做吧。

  

  程序中用到了两个API函数GetSystemMenu、RemoveMenu,其中GetSystemMenu函数用来得到系统菜单的句柄,RemoveMenu用来删除指定的菜单条目,我们先来看看这个函数的声明和参数:

   Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

   Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

  其中各GetSystemMenu参数的意义如下表:

参数: 意义
hwnd Long, 系统菜单所在窗口的句柄

bRevert Long,如设为TRUE,表示恢复原始的系统菜单

返回值 Long,如执行成功,返回系统菜单的句柄;零意味着出错。如bRevert设为TRUE,也会返回零(简单的恢复原始的系统菜单)

  而RemoveMenu参数的意义如下表:

参数: 意义
hMenu Long,菜单的句柄

nPosition Long,欲改变的菜单条目的标识符。如在wFlags参数中指定了MF_BYCOMMAND,这个参数就代表欲改变的菜单条目的命令ID。如设置的是MF_BYPOSITION,这个参数就代表菜单条目在菜单中的位置(第一个条目的位置为零)

wFlags Long,常数MF_BYCOMMAND=&H0&或MF_BYPOSITION=&H400&,取决于nPosition参数
返回值 Long,非零表示成功,零表示失败。

  然后就可以在程序中使用这两个函数了,我们在窗体的Form_Load()过程中加入如下代码:

   MyMenu = GetSystemMenu(Me.hwnd,0)    '得到系统菜单的句柄,Me.hwnd表示当前窗体的句柄

   RemoveMenu MyMenu, &HF060, MF_BYCOMMAND '移去“关闭”菜单项,&HF060“关闭”菜单项的命令ID

  接着我们运行程序,看看窗体右上角的X按钮是不是已经不可点击了,系统菜单中的“关闭”项也消失了,很有趣,不过一定记着为程序留一个“退出”按钮哦!
借助Facebook、Twitter等社交平台API打造超炫酷的那些应用 Unity中Shader的开发运用实战详解,开放报名! 我从独立游戏开发学到的6件事儿 果断Mark!Searchcode——源代码搜索利器 《近匠》图灵机器人:App和移动硬件的智慧大脑 极路由发布HiWiFi OS及应用开放平台 Loom SDK框架:命令行快速开发跨平台2D游戏 安全管家Q2移动安全数据报告:窃取隐私最多 Project Adam vs. Artificial Brain,微软与谷歌角力人工智能 “微信公众平台优秀开发商”征集评选活动正式启动 移动数据库新疆界:开源、Swift、可穿戴... Chromebook侵蚀微软商用PC市场,成绩喜人 2014微信开发者大会议程公布 8月1日前购票8折优惠并赠书 四火的唠叨:也谈谈全栈工程师 图形化与集成趋势 协同软件致远发新品V5.1 跨平台开发如何事半功倍 Xamarin推出免费培训 《近匠》上海庆科:海尔智能家居背后的云方案 轻松DIY智能硬件,开源电子原型平台Hippo-ADK 所见即所得!基于Polymer的设计工具Mobile UI Elements 好的产品经理是怎样炼成的? 统一架构、统一运维:UnitedStack发布UOS2.0 把轻应用带进汽车——宝马、百度编程马拉松大赛启动 “钢铁侠”Insteon的逆袭:声控智能家居新时代 游戏云纪元 第二届游戏运营技术论坛即将召开 Bitly:构建月处理60亿点击的分布式系统 重塑微软:Satya Nadella开启整合之路 推送工具个推完成B轮数千万美金融资 娱乐行业数据化 ABD爱梦娱乐发布大数据引擎产品 增强现实:10大AR应用窥探移动未来 LBS的硬件创新:高德LBS智能硬件编程马拉松圆满闭幕 2014优秀微信开发商评选上线 首批旅游汽车电商房产等行业应用出炉(表) 谁能给我一个delphi连接access数据库的实例,小弟万分感谢!!!!!!!!!!!!! 我机器里,98,2000装在C盘,XP装在D盘,现在我想只留下XP,不知道该怎么处理???????????????????????????? 如何实现5M以上的文件的上传 从windows进入unix Oracle 中文输入 是否onkeypress和onkeydown不能同时使用呀? Delphi 5下要做一个多 Y 轴的曲线图形,如何实现? 哪有xteamlindows下载?? 万分感谢!!!!! borland 会不会出一个 C# Builder? 乱码,头大了,不知道为什么pb导入excel怎么办 数据统计问题,请大侠门帮忙!急急急!!! 求解ZModem通讯协议源程序----有谁用过CZModemCore 我也不知道对不对! 最高级的问题?搞一个专业的VC程序员基地~~~~~~ 在研究directshow filter的push模式的兄弟请进 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了 有两个问题,每题40分,马上给分!!!! 如何使用打印机? 在爱情方面谁能做到这一点? 谁有 file cutter v1.4的注册码? 有急用! 搞一个专业的VC程序员基地~~~~~~谁愿意加入????? 最新发现:原来C++Bilder的项目文件(.bpr)是XML格式的! 关于FAT32和NTSF的问题 如何用VC实现Email的发送? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了! 搞一个专业的VC程序员基地~~~~~~需要网页制作高手!! ADO 的用法 m_pRecordset->Fields->GetItem(index)->GetName() 关于CRichEditCtrl的问题之二,取的当前可见行数? 请问在哪里下载IMAIL SERVER???各位帮帮忙!!! 高手请回答,ADO和BDE到底有什么区别,你选择谁?为什么? 高分求教!!!!!!!!!!!!!!!!怎样得到局域网上所有的机器名?(普通WINDOWS网络,用VB?,好象用WNET API可以的) 如何安装com.ibm.bridge2java.*这个包阿? 有人吗???求救! 你也许也会遇到这样的问题? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!!! 大虾看过来. 一个access表一万条记录,想转到Mysql下(Mysql在Linux下)用什么方法和什么语言来做好? rs.CursorLocation=aduseclient是什么东西? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题! 简单SQL,免费送分! 用ASP如何上传文件,可以用组件。 谁知道怎么改运行中的程序的托盘图标???我用SysTray.ocx不能改? 新手提问,简单题目,大量给分~~~~~~~~~~ 如何使用getdispatch(), 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!! 关于在一个窗口中的多个数据窗口的问题 扔块砖头, 开个场子 。 ( yeti_lee ) 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了? To: baicolt(五岁的小新是我师傅) 有没有人用过Jcreator 李叔叔家种粮食作物8分之3公顷,种油料作物0.21公顷,种经济作物5分之1公顷.哪种面积大 一张地图的比例尺1比200表示图上的什么表示实际距离的 6吨等于多少克 某县耕地面积约80万公顷,2005年粮食作物与经济作物的面积比是7:3,到今年将调整为6 :4哪一种作物的生产规模扩大了,扩大了多少万公顷.请回答完整要算式并解答 一幅地图的比例尺是200:1,图上120厘米表示实际距离是()米一幅地图的比例尺是200:1,图上120厘米表示实际距离是( )米 一根绳子第一次用了全长的1/4,又用了5/2米,这时已用的/剩下的=2/3,绳子长多少米 5π等于多少 华北平原种植的粮食作物以什么为主 一根绳子第一次用去全长的1/5,第2次用去3/5米,两次共用去这根绳子的1/2.这根绳子长多少米? 5+5等于多少 华北平原的主要粮食作物是什么?1.水稻 2.大豆 3.高粱 4.小麦 上海到杭州的实际距离大约是150千米,在一副比例尺是1:3000000的地图上,两地之间的距离是多少厘米?随便帮我把答案算出 若大气压为1.01*10的5次要方Pa,水平屋顶面积为100平方米,则大气压对水平屋顶上表面压力为多少N 华北平原的主要粮食作物是? 在一幅比例尺为1:3000000的地图上量得上海到杭州的距离为5cm,把它改画在比例尺为1:5000000的地图上,上海到杭州的图上距离是多少厘米?(如果不会,不妨用方程试试!) 大气压多少Pa 你知道华北平原的人们种植的主要农作物有哪些?你的判断依据是什么? 在一幅比例尺是1比5000000的地图上,量的上海到杭州的距离是3.4厘米.上海到杭州的实际距离是多少? 一根绳子减去20%后又接上5米,比原来断20分之3,则现在绳子多少米 4*7等于多少? 在一幅比例尺是1:5000000的地图上,量得上海到杭州的距离是3.4cm.上海到杭州的实际距离是多少 永宁乡有块4.5公顷耕地,种粮食作物、经济作物,油料作物的面积比是9:4:2.3种作物各种了多少公顷? 等于几? 请问1mbar等于多少kpa 绳量井深,三折余4尺,四折短1尺,绳有多长(只列方程) 总压为1个大气压的体系,含50%氧气和50%氮气.问氧气的压强为多少? 200磅等于多少KPA 李叔叔家种粮食作物8分之3公顷中油料作物0.21公顷中经济作物5分之1公顷那种作物种植面积最大那种最大那种种植面积最小 当氮气大量增加会改变空气吗?会影响大气压吗?吃的面包包装是那种充气式的,一撕开袋子气体唰得一下全跑了出来,袋子就变瘪了.上网查了一下,像薯片、面包这种充气式包装充的一般是氮气. 100升等于几千克 有两根绳子,第一根的长度是第二根的1.5倍,第一根比第二根长3.6米,第一根长多少米?列方程 6升150兆帕的氮气等于多少大气压 5060克等于几千克几克 请问 1BAR=多少 = 多少kg/cm2 容积为20升的钢瓶中,装有150个大气压的氧气,现将氧气在等温条件下分装到容积为5L的氧气袋中,氧气袋原来是真空的,要求每袋氧气均达到10个大气压,设分装时无漏气,则最多可装几袋 压强1Pa等于多少克的压力 我这..是头虱 还是 狗狗的虱子?我家养狗狗,它总是挠痒痒,我也没太在意,后来我觉得我全身都养,就像是有虫子,但是什么都看不到,躺下的时候能听到耳边有"皮皮"声,那天,一洗澡,关水后能看到 如果空气中的氧气都没了那么大气压是多少为什么? 1200克等于几千克几克 一只小狗的重量等于6只鸡的重量,3只鸡的重量等于4只鸡的重量.一只小狗的重量等于几只鸭的重量? 有2根绳子共长63米,减去第一根的3/5和第二根的7/9,还余下共22米,第一根长多少米? 在一幅比例尺是1:200000的地图上,量得甲、乙两地距离20厘米.如果在另一幅地图上,甲、乙两地距离8厘米.另一幅地图的比例尺是多少 某农场种植粮食作物和经济作物面积的比是3:2,一直种粮食作物252公顷,两种作物一共种了多少公顷 一幅地图的比例尺是1:30000,说明图上距离是实际距离的什么,实际距离是图上距离 什么倍,图上1cm的距离表示实际距离( )m. 许伯伯承包了2公顷土地,他把其中一半用来种植棉花,棉花的种植面积是多少平方米?还有一道:一个储水器中装有2m³纯净水,如果把这些水分撞到容积为10升的水桶中,可以装多少桶? 如图是红星农场农作物种植面积的统计图,回答下列问题:(1)若已知有250公顷土地种植蔬菜和棉花,则小麦有多少公顷?(2)若已知种植小麦的面积比种植蔬菜的面积多120公顷,则种植总面积 下面是某农场各种农作物种植面积的统计图,看图回答问题:己知粮食作物比经济作物多312公顷,这个农场一共有耕地多少公顷?三种作物各种植多少公顷?(粮食占总数的60%,其他作物占6%,经济 许伯伯承包2公顷土地,他把其中一半用来种棉花,棉花的种植面积是多少平方米? 下面是城东村今年各种农作物计划种植面积统计图.己知粮食作物的种植面积是175公顷,蔬菜种植面积是多少公顷?(粮食作物25% 蔬菜30% 其他45%) 一根绳子,第一次用去全长的15%,第一次用去全长的25%,还剩下8.4米.这根绳子原来长多少米?判断,打√,×.1、女生和男生人数的比是4:5,女生人数比男生少25%.( ) 2、甲数是乙数的2倍,那么甲 一根绳子长60米,第一次用去1/3,第二次用去1/4米,还剩()米 要过程 在比例尺为1:30000的地图上,实际距离是15千米,在图上应画多少厘米? 1pa等于多少公斤 一根绳子长100分米第一次用去3分米;第二次用去40分米;还剩多少米 某地的大气压为1.0*10^5Pa,这个大气压可以支持多高的水柱?要写出计算过程``! 1pa等于多少牛每平方米 一条绳子长15分米,第一次减去他的1/3,第二次减去它的1/2,还剩多少米 大气压在哪里为0 1pa等于多少每平方厘米多少克 7磅 多少克
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn