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

使窗体右上角的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按钮是不是已经不可点击了,系统菜单中的“关闭”项也消失了,很有趣,不过一定记着为程序留一个“退出”按钮哦!
束文辉:Intel如何玩转OpenStack Facebook社交业务进军中国内地,困难重重 《近匠》透镜:代码级定位,让App性能监控更从容! 联想移动与云新战略 重点深耕企业移动方案 美国高通公司在深圳召开参考设计及无线创新峰会 提供“一站式”整合服务 友盟正式推出消息推送平台 iOS 8新功能再曝光:或推出分屏多任务功能 Framer:开源原型设计工具,巨头们的心头好 亚特兰大峰会精彩看点:软件吞噬世界,OpenStack是变革核心 数据中心基础设施是大数据战略成败的关键 实时大数据分析:网络分析的一种新方法 最新消息:iPhone 6将采用更大、更清晰的1704x960分辨率屏幕 吴毅挺:OpenStack是开源IaaS平台大势所趋的集大成者 做好扁平化设计-交互篇 狙击Google Glass?三星将推基于Tizen系统的Gear Glass GamePlay:跨平台开源3D游戏引擎,黑莓的努力你不懂 “少即是多” 高通QRD大会精华汇总 天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 弥补空缺!HappyFox面向iOS开发者发布开源移动HelpDesk SDK Chitika北美网络流量报告:WP KO黑莓、iOS超Android 《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 【云先锋】ClouDil云方案:PB级大数据解决方案 一周消息树:这是要“发”啊?Google Brain之父正式加盟百度 最受欢迎的游戏引擎集结号:小白篇 多盟总设计师邢开捷:四两设计拨千金 Cocos2d-x游戏《Monster Strike》终结《智龙迷城》霸榜神话 高通物联网技术解决方案:从汽车到智慧城市 ***List Control 控件怎么编辑子项??200分重谢!!*** VB 如何开发在IE中可以直接下载安装的ActiveX控件? 大虾,我还该学什么?散分 do form 怎麼偉參數啊? 在 form 中又自私用啊? 請大家指教,謝謝!! 在系统权限中,create any table 和create table 我搞不清,查了书本也是迷糊,请帮我解释一下! 如何让BCB运行时不自动创建一个新工程? 问题青年来了 : 怎么把一个Win32 Application 改成ActiveX啊?解决了给你100分 新装宽带,征集防火墙方案 垃圾收集 在什么时候发生? 一个数据备份与还原路径合法的问题(50分)在线等待 将字符串中第i个字符删除? 什么函数返回ASCII码的对应的字符 Rose中Class Diagram中的几种类,我不清楚阿 给我一点对perl/python的初步认识 真有这样的事? 如何对jpg文件进行像素处理? 如何用正则表达式不区分大小写的匹配“<script ...>...</script>”? 为啥我得机器不能access 请教一个简单的问题 这样为什么不能加入记录,怎样加 请问,我想用两台2000共用一个ip上网,一个做iis服务器,另外一个做传奇的服务器。谁知道怎么做啊。 菜单拖动事件 使用TCP/IP编程是怎么一回事? 珊珊艾的玉照放出来啦!! 语句extern "C" AFX_EXT_API int WINAPI ExecSQL( CString strSQL ); 怎么理解?关键字AFX_EXT_API有何用? 急,怎么将String中的"/"替换成"\"? 四川的分数出来了吗? 关于MSFlexGrid的一个问题 高分求购经典旧书配本源码 《Windows编程指南》,清华出版社,成功后立马送分 关于百度插件问题 怎样用Request.QueryString("k")的值和select pass from c while pass=44的结果比较 关于在QR中横向打印的问题........... 为什么有的网站明明是用了数据库,但是网页文件却是.html的? 如何实现数据库中的图片存储 select ???? 这怎解决啊,Help!!!! 如何将结构相同的两表的数据合并? 建立一个简单的网上直播服务器需要那些步骤? 请教一个关于属性页的问题 可以这样查询吗 ?请问怎么出现设置目录的对话框,并且把路径保存edit中!!急急急急急急急(lxjgyl82) 关于监考管理 怎么通过ado动态的连接数据库 web服务器控件和html服务器控件有什么区别 合肥工業大學爆发學潮 Java程序监听数据库的操作 串口 对DBNavigator组件的操作,请大家帮忙 怎么看历史短消息啊?原来有的怎么看啊? 一个sql的意义! 我在程序启动时所出现的封面如果关闭程序? 宁波望春路路面坑洼 相关部门已安排整杭州市区经济适用房上市交易细则出台 专家解析杭州经适房交易细则杭州有860个志愿服务组织 完善机制杭州市级机关和事业单位9月底前启动垃余姚供电公司设电力应急小分队保障高温宁波治堵新进展 断头路打通公交专用道宁波周日前无明显降水 继续发布干旱橙杭下周或告别35℃ 临安人工增雨山核湖州长兴银杏树因高温枯黄 今年或没有干旱致农民损失惨重 急盼能纳入政策性浙江持续高温天基本结束 或提高抗旱应宁波公交线路再优化 821路掐头去尾浙江2013年教育支出938.30亿杭州供电公司设计低压T接箱助龙井茶园宁波市卫生局引入淘宝式评价 差评直接工地扬尘成杭州第三号空气质量杀手温州限购令引质疑 政府称未违反国务院杭州本地蔬菜受干旱影响减产 价格波动杭州明起下雨最高温或跌35℃ 双台风浙江今年高温达44天 已人工降雨25有个大爷坚信自己是亚瑟王,他坚守在巨卡索拉:西班牙将看到最好科斯塔本周热门机价格走势图狗仔摄影五十年囤积人才?皇马有意贝蒂斯新星数据调查称欠发达地区网名更爱用手机上人类头发化身阴郁工业景观哈利洛维奇:巴萨本该签下科瓦契奇Apple Watch成功或推动移动由研究者倡导的 REDUCE 研究纳股票大涨前会发出以下几大信号我们究竟需要怎样的儿童类APP?2014中国清洁(成都)博览会即将举迪涅:在奥林匹克首秀太激动人心华为SnapTo将在美国开售完成任务管理、知识沉淀及任务评价体系京东王牌特供促销活动详解中国第一代操盘手最后都落得什么下场?年轻活力 双胞胎小鲜肉演绎《ReflHTC推更新修复M9拍照缺陷本周锋投:大佬又一次迷上基因工程鸟
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘