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

使窗体右上角的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按钮是不是已经不可点击了,系统菜单中的“关闭”项也消失了,很有趣,不过一定记着为程序留一个“退出”按钮哦!
Gamebase将推全新跨平台3D游戏引擎Reach3dx 借助API Telegram能否成为第二个WhatsApp 机器学习也感性:90后软妹纸的编程之路 为安防与视频监控而生 西数紫盘首发 秘闻:鲍尔默离职,或与坚持收购诺基亚有关 【OSTC讲师专访】Thomas Yao:开源社区最缺有能力的领导者 对比MySQL,你究竟在什么时候更需要MongoDB 不以“大小”论英雄,对比IBM、AWS,谁才是Hadoop界的MVP? 参加“我们都用JIRA”视频征集大赛 赢取乐视TV超级电视 开发者下一个待开发市场:印度 一周消息树:80%开发者背井离乡,70%经常加班 移动周报:最受欢迎的跨平台开发工具推荐 研发周报:Mt.Gox破产,都是错误编程惹的祸 数据挖掘+人工智能,教育定制化下的学霸量产 通过700合作伙伴的进一步细分,Google变得越来越像微软 一周热点:高薪必备:Hadoop求职者的6大攻略 谷歌Android主管:两周内为开发者推出可穿戴设备SDK 【OSTC讲师专访】魏子钧: “中国式开源”没有“然后” 揭秘CarPlay欲将颠覆汽车产业的真相 联想王岳源:利用Web App推动互联网转型 IT经理人:提高团队工作效率的11个方法 30美元一小时,数据科学家的收入是否太低? 选择Go语言的12个理由 动鱼数码携三款大作参战Unity游戏及应用大赛 从Google、Apple、Dropbox、Twitter和Square学到的管理哲学 软件开发就像炒股,关键看你怎么选股票! iOS 7.1正式版:新增CarPlay连接功能、完美支持iPhone 4 【OSTC讲师专访】马全一:Docker,Hadoop的竞争者来了! 福布斯:全球那些富可敌国的科技大佬们 抢工作、争资源,如此聪明的AI你拿什么阻止? iUI:移动Web应用开发必备的开源框架 求教~~~ 在Sqlserver2000的function中能用。。。。。 关于虚拟主机的数据库服务器 VC、DELPHI问题 模拟串口问题。 高分相送。 截屏问题 一个很奇怪的问题??? ping值总是不稳是什么原因? 初次接触GIS,有什么书可以入门的介绍一下 和一MM聊天,开始很投机,后来一见面就对骂! 怎么批量插入数据 大家都来看看吧,顺便散点分 我的FLASH在没有装FLASH的IE怎么不可以自动下载FLASH? linux 断电后,启动失败,该如何处理!? 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 三角形ABC中,(a+b+c)(a+b+-c)=3ab,则cos(A+B)=? 将一张圆形纸对折3次 多米诺骨牌又是啥子意思啊? 现在是1分59秒,30分59秒后出发,是什么时候 描写大雁形态的段落、句子(要优美)急 麻烦提供关于莫拉克、台湾水灾的文章或消息 在三角形ABC,若(a+b+c)(a+b+c)=3ab,求cos(A+B)= 菱形的一个内角为60°,一条对角线的长为2根号3,则另一条对角线的长为 多米诺骨牌效应?寓意? 今年全球将同步进行闰秒调整,在北京时间7月1日7时59分59秒后增加一秒,这一时刻为:1.太阳时6月30日23时59分59秒 2.纽约时间6月30日23时59分59秒 3.巴黎时间6月30日23时59分59秒 4.格林尼治时间6月3 菱形的一个内角是60°,较长的一条对角线长5根号3㎝则菱形的周长和面积是多少 台湾88水灾的 在三角形ABC中,若(a+b+c)(a-b-c)=3ab,求COS(A+B) 已知菱形的一个内角为60度,一条对角线的长为2倍根号3,则另一条对角线的长为? 怎样求y=4/e的x次幂+1的导函数 什么是核苷酸序列 已知菱形的一个内角为60度,一条对角线的长为2倍的根号3,求另一条对角线的长 y等于x的负三次幂的导函数 牛津英语7A 上 Uint1上填空部分内容Uint 1 上 第16.17页上关于Li Hua什么的填空答案`````磁带找不到了好的会追加分 下列命题:(1)一组对边平行,一组邻角互补的四边形是平行四边形,(2)一组对边相等,一组邻角互补的四边形是平行四边形,(3)一组对边平行,一组对角相等的四边形是平行四边形,(4)一 六年级奥数,求阴影部分面积 核苷酸序列U57641 五年级下册数学剪蝴蝶纸张怎么对折为什么我剪的老是只有两个连起来 小红有10个红气球,小兰有8个蓝气球,小红用4个红气球换小兰的3个蓝气球,现在小红、小兰各有几个气球 滞空时间1秒算多吗? 如果把一张纸对折两次剪蝴蝶,能剪几个?对折三次、四次、五次呢? 气球的个数在100到200之间.7个7个地数正好数完,5个5个地数正好数完.最多有几个气球? “我可以给你一点”的英语怎写? 品茶的知识是什么 男:我6个6个地数正好数完 女:我5个5个也正好数完 男:我知道气球个数在160到200之间气球有多少 我可以不是你的第一,但我希望我是你的唯一 英文怎么说 求正确回答~ 1000块多米诺骨牌(每种颜色100块)可以摆什么图案?急 跪求初三政治第6、7、8、9、10课的知识结构图 把边长6分米的正方形对折,得到的长方形的周长是多少? 多米诺骨牌是什么东西 什么元素容易形成离子不要说都可以 是哪族 更容易 多项式(m2-25)x的三次方-(m+5)x2+x+3是关于x的二次三项式,求下了二次三式,求下列各式的值.(1)(m+3)(m-3)(2)m2-9 一张纸对折一次裁开后可以得到两张,两次裁开后可以得到四张,对折三次、N次后可以得到多少张? 多米诺骨牌1000张要多久才能倒完?可以排多少米啊,直线距离! 什么是热电偶的热端和冷端?其作用又是什么? 因你而快乐或为你而担心作文我可以+分!急vvvvvv 1000个多米诺骨牌可以排成什么图像 A,B两地相距125千米,甲,乙两人骑自行车分别从A.B两地同时出发相向而行.丙骑摩托车每小时行63千米 如果以后有时间,我希望我可以去长城走走 英语怎么说? 照片上的老人默默地注视着盘旋翻飞的海鸥们,注视着与它相伴了多少个冬天的"儿女"们 A,B两地相距125千米,甲,乙两人骑自行车分别从A.B两地同时出发相向而行.丙骑摩托车每小时行63千米,与甲同时从A出发,在甲.乙两人之间来回穿梭(与乙相遇立即返回,与甲相遇也立即返回)若甲 帮下忙,制作流光字; 如果时光可以倒流,我宁愿没有遇见你 ◆、by薇 下列函数中,在(0,+∞)内单调递增的是() A y=sin^2 x B y=x e^x Cy=x^3-x Dy=ln(1+x)-x下列函数中,在(0,+∞)内单调递增的是()A y=sin^2 x B y=x e^x Cy=x^3-x Dy=ln(1+x)-x过程详细点! 怎么看出来时间是1秒 品茶论足 什么意思 初中数学压轴求(3)的2的解 次日的零时起,是什么时候?是当天晚上的23:59:59秒后的1秒吗? 茗香是品茶的意思吗?知道的告诉我一下啊.谢谢! "读一本好书就仿佛和一个高尚的人谈话"是谁说的 若a,b,c分别表示三角形的顶点A,B,C所对边的边长,且(a+b+c)(a+b-c)=3ab则cos(A+B)=? 品茶讲究三回味,是什么意思? 多米诺骨牌什么意思 全球时间增加一秒后,到7.2号,以后的时间是不是没有60秒而回到59秒了? 品茶时常说的味最酽是什么意思经常在品茶时听说到《酽》请懂的朋友来解释一下, 求台湾水灾详情,字多点! 纽约公寓内5人被杀,疑为华人法国残障者本周跳伞飞越珠峰 称向病友中国游客成韩免税店最大主顾阿联酋向埃及援助49亿美元伊朗首都德黑兰近日被撤下反美情绪标语缅甸抓紧酒店业建设法国残障者本周跳伞飞越珠峰 称向病友伊拉克爆炸一日致死56人 居民汽车“湖南3干部偷拍书记案存疑:提官员送礼媒体称医患关系恶化非单一成因促成 只北京药店买奶粉被指便利性欠缺 未来或媒体称“医不过二代”投射代际传承断裂李娜自评2013最佳赛季 感谢团队:女护士遭劫持打落匕首获救 医护人员称法国残障者本周跳伞飞越珠峰 称向病友媒体观察称延迟退休5年每月养老金可多媒体疑香山红叶没官方数据红 回应称黄河北廊坊学生打砸食堂续:学校垄断经营几比选举委员会称几比将无法按期举行大联合国报告称逃至黎巴嫩的叙利亚难民超学者撰文析中国经济发展:还会高速增长艺术体操世界杯索非亚站闭幕俄罗斯队大【关注桶装水】湖南省桶装水质量堪忧 长沙县政协开展民主监督员学习培训长沙县委书记杨懿文:以项目建设拉动经长沙裸体男子坠亡后续:无精神病史 初44万余块积木搭建“辽宁号”这里的农民不爱打工爱种地 外出的村民第五任南海分局局长忆主权碑投放过程 淮南六万党员争当社区“八大员”长沙芙蓉路浏阳河新桥拟10天后通车 星沙首届社区节第二场走进中南社区活动长沙县企业安全生产不达标将被关停长沙县:早稻敞开收 农民送粮莫扎堆中共长沙市委中心组2014年第四次集恶汉基恩坐上教练席 遭吉祥物熊抱面露内蒙古部分地区遭受风雹、洪涝灾害书豪被问是否回纽约 神回复:比伯教我CPL丹江口站花絮:美女裁判亮眼 男团中央领导汪鸿雁一行来长沙县调研青少长沙县第四届广场舞大赛总决赛落幕长沙一小区业主比厨艺 口味蛇夺魁
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘