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

VB如何使窗体右上角的"X"无效?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使窗体右上角的"X"无效?

要Disable Form "X" -->Close的功能(便暗灰色),事实上便是从Form左上方的SystemMenu将关闭的MenuItem去除掉便可以了,去除后,又该如何,那便是在将关闭(Close)的MenuItem加回去 但这里有个小问题,加回去之后"X"仍是暗灰色,要等到我们做了某些固定的动作之后(如TittleBar上Click一下,或选一下SystemMenu等), 我不知道让TittleBar上的这些东西Refresh要送什么消息,所以现在我暂且Send一个在TittleBar上按下Mouse左键的消息给窗体,令"X"能出现的Enable颜色
在窗体上放置一个Command Button,输入以下代码,运行,点击一下Command Button 就可使"X" Enable.
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function AppendMenu Lib "User32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function GetMenuString Lib "User32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private hMenu As Long
Private CloseStr As String '纪录Close MenuItem的字符串
Private Sub Command1_Click()
'将"关闭"的那个MenuItem重新加入
Call AppendMenu(hMenu, MF_STRING, SC_CLOSE, CloseStr)
'令"X"出现Enable的颜色
Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
Private Sub Form_Load()
hMenu = GetSystemMenu(Me.hwnd, 0)
CloseStr = String(255, 0)
'SC_CLOSE即是"关闭"的MenuItem ID
Call GetMenuString(hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND)
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub
一周消息树:6款Java转C#的最佳工具、Web开发者必备的9个软技能 对话“宙斯杯”获奖代表:依托京东云平台,打造精品电商CRM 关于微软开源WinJS,开发者必须知道的5件事 告别丑陋banner条,InMobi联合开发者尝试原生广告 免费游戏开发经验谈:第一印象很重要 《近匠》小旭音乐:游戏音乐金牌匠人的练级之路 日600亿消息,月4.65亿用户——WhatsApp的Erlang世界 一周热点:Cloudera新一轮融资总额已达9亿美元 【走近院士】李未:实现云服务的有效方法是群体软件工程 大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360°全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 请问有长沙的软件朋友吗?能否介绍份工作!熟悉DELPHI及PB编程,SQL SERVER数拒库。能用VC++SDK编程,了COM技术。万份感谢!zongpenghou@ jobuson兄请进 在C++Builder中怎样使Mediaplayer控件实现连续播放多个文件的功能? HELP ME!!(vb调用AIP涵数) 请问有长沙的软件朋友吗?能否介绍份工作!熟悉DELPHI及PB编程,SQL SERVER数拒库。能用VC++SDK编程,了COM技术。万份感谢!zongpenghou@ 动态菜单的实现及关联方式? 请问有长沙的软件朋友吗?能否介绍份工作!熟悉DELPHI及PB编程,SQL SERVER数拒库。能用VC++SDK编程,了COM技术。万份感谢!zongpenghou@ 请问有长沙的软件朋友吗?能否介绍份工作!熟悉DELPHI及PB编程,SQL SERVER数拒库。能用VC++SDK编程,了COM技术。万份感谢!zongpenghou@ 帮我看看,51476905 有关tc的一些问题? 我的电脑上发现Folder.HTT病毒,怎么办? 拆了硬盘,再安装,但进不了win98,急 ! jsp调用javabean需要做那些步骤啊?在线等待,马上接贴! 有重庆的考程序员的吗?重庆什么时候考(留下你的联系方法) 立项建议书 vb画圆 立项建议书 请教关于数据库的问题 如何信达地翻译这句话? 请大家 推荐一些比较难的书(散分) 请问那里有isa server的中文教程下载?谢谢。 高手助我! 在VB中,用SQL语句时,怎样用函数。 图标在上网的时候改变,请问这是怎么回事? 编一个电话簿程序都需要哪些控件? powerbuild 在社会上用在那些方面 ? 请教一个问题:在word中能实现双面打印吗? 关于写文本文件的问题 怎么改密码啊?! 哪里有pb的电子图书下?在线等待 高分求avi播放器源代码(不使用控件) cab文件 关于crystal report export 的问题 XML带的?是什么?? 如何实现数据库CLIENT的用户之间的交互,即一旦一个用户更改了某项数据,其它用户能立刻知道,并能作出反应? 没有控制面板如何设置Delphi快捷键? 连接上网成功后会产生什么事件或者消息? 怎么定位treeview和listview? 哪里有DEIPHI5程序员参考这本书可以下载? ds,dt,dv数据绑定的时候,那个是最佳选择? 谁有串口通讯的控件comm32.zip,spcomm.zip,async32.zip,commst.zip? 游戏开发需要具备哪些知识? 在DELPHI中怎么命令调用外部exe文件?1 java运行环境参数 关于Apache 1.3和Tomcat 4.01结合使用的问题,搞不定了,请帮帮忙! 十万火急?请进!!! IBM 有自己的jkd吗? 哪位北京的朋友能帮我一下,给我妹妹找点事做 在DELPHI里面有没有读取时间的函数,其精确到毫秒的??急救。 小程序改错?急!!!请大家帮忙!!! 问题很小,给分不少 上海到拉萨的铁路全长4373千米,一列客车和一列货车分别从上海和拉萨两地出发相向而行,客车先行117千米后货车才出发,客车的速度是61.6千米/时,货车的速度是50.4千米/时,货车经过几小时后与 请问电动车电池修复仪的原理及使用技术 废活性炭怎么处理? 上海到拉萨的铁路全长4373千米,一列客车和一列货车同时从两地出发相向而行,客车的速度是61.6千米/时,货车的速度是50.4千米/时.几小时后两车还相距1237千米? 为什么说氮气由氮元素组成,而氦气由氦原子组成?为什么说氮气由氮元素组成,而氦气由氦原子组成,而不说氮气由氮原子组成啊? 骑车时,车轮与车轴之间的摩擦是有害摩擦,为什么? 上海到拉萨的铁路全厂4373千米,一列客车和一列货车同时从上海和拉萨两地出发,相向而行,途中客车因上下客共停靠了约1小时,结果货车30小时后与客车在途中相遇,已知客车平均每小时行85千 标准情况下2.24L氮气中,有多少个氮气分子?有多少个氮原子? 下列电器正常工作时通过的电流大约为5A的是 A 家庭电扇 B 笔记本 C 台灯 d电饭锅 跑跑卡丁车遥控车的速度买了的请回答. 真的能达到他所说的哪个速度? 因为比较喜欢.所以想买一款. 希望您能好好的给我提下意见. 最好给我一个你玩的视频. 制氢机制出来的氢气,所输送氢气的管道属不属于特种设备中的压力管道 标准状况下11.2L由CO和H2组成的混合气体的质量为7.2g,此混合气体完全燃烧消耗氧气的体积为?L 加大遥控车的转速(速度)从哪下手? 氮气是由氮分子直接构成对吗 4克CO与H2的混合气体在足量的氧气中充分燃烧,生成的气体与足量的Na2O2(足量)反应,Na2O2固体质量增加多少克?急 太阳能热水器和电热水器共用 如何安装?家里造房子的时候是用太阳能的,管子也只布了太阳能的管子,但是实用过程中,发现太阳能不够用,水温太低了,冬天没法用啊,所以想装一个电热水器.电 若氮气和氨气的氮原子数相等,则它们的分子个数比是( ),所含电子总数之比是( ) 烛焰通过凸透镜在光屏上成一放大的像,如果在凸透镜上沾一个小黑点,则光屏上?如题 怎样判断出如氧气氮气等构成各种物质的分子和原子各是什么. 高锰酸钾是有什么作用 6,烛焰通过凸透镜恰好在光屏上得到一个倒立,放大的像,若保持凸透镜位置不变,把烛焰和光屏的位置对调一下,则 ( ) A,屏上仍能得到一个倒立,放大的像B,光屏上没有像,需调节光屏位置才能成 HCL气体有气味吗 英语翻译能不能让人觉得名字简洁又清新~ 当蜡烛离凸透镜40厘米时,在凸透镜另一侧的光屏上得到一个放大的像.当烛焰离凸透镜10厘米时,所成的像【 A.一定是虚像 B.一定都是缩小的像 C.一定是放大的实像 D.可能是缩小的像 【请 什么无色气体能遇HCl气体能产生白烟该气体是由一种强碱和某物质反应生成,生成物还有水和另一种物质 重庆有几个化工园区?请问各位知道重庆哪些化工园区 如何快速地计算化合物分子中所含的电子数? 往复式氢气压缩机的开机步骤 如果滑动摩擦力等于最大静摩擦力,则由静摩擦力转变为滑动摩擦力的条件. 如何计算物质的电子数,分子数及质子数 单级氨压缩机的开机步骤?这是我们的回家作业, 蒸汽疏水阀应用实践中的趣事请把日常现场服务中遇到的趣事晒晒,或许能帮助大家扩大知识面,遇事多个参考 怎样求化合物中的质子数 太阳能热水器安装高度问题?由于条件限制热水器不能安装在房顶,请问能否直接安装在地面.如果不行的话是否有好的解决问题的办法,比如是否可以用钢铁搭个支架什么的. 电动车电池修复仪管用吗? 例如煤的化学式是C5.85 H5.26 O1.13 S0.08 N0.077石油的化学式是C7 H11 O0.06 S0.042 N0.2 遥控车电池改装我一台遥控车电池坏(充一晚上跑10分钟),转了一圈没买到,想改装,怎么改电池型号是:700mAh 9.6v 空气中含有氮气,氧气,二氧化碳等不同物质的元素原子还是分子 江阴马蹄酥的作文 遥控车改装电池我的装3节5号电池的遥控车 改装2节或者3节3.7V的18650电池.会不会烧板? ①22g二氧化碳②8g氧气③1.204×10二十四次方个氮气分子④四℃时18g水 所含原子数最多的①22g二氧化碳②8g氧气③1.204×10二十四次方个氮气分子④四℃时18g水所含原子数最多的是 保护地球的生态环境有几点?要举例说明!1.(有什么要注意的),(怎样做). 改装雷速登遥控车1、阜新那里有卖超级扭力马达的?2、遥控车升到最顶级怎么改装?3、旋风乱舞、闪电飘移、神龙摆尾和刀片超车都怎么使?4、怎么让后面加重?高分求助、小子在这里谢过了! A、B两地间的铁路长152千米,一列货车和一列客车同时从两地相对开出,0.8小时后相遇.货车每小时行86千米,客车每小时行多少千米?用方程解 江阴马蹄酥的由来清兵的 遥控车频率怎么改用示波器该遥控车频率怎么该 甲、乙两地铁路长702千米,一列客车和一列货车同时从两地相对开出,客车每小时行54千米,货车的速度比客车快6分之1,两车开出后几小时相遇? 地球有什么地方的生态环境造到破坏 怎么修改遥控车的频率 一束太阳光透过一块红色的玻璃,照在绿纸上,白纸呈答案是黑色,可是为什么?为什么绿光吸收红光?不是只有黑色光才能吸收其他的色光吗? 江阴马蹄酥的用途有哪些? 怎样画凸透镜和凹透镜的特殊光线 假期中你会阅读书籍,也有可能外出旅游.把你从中获得的地理知识记录下来.请教可以作为它的答案的东东咋没人回答涅?随便一些小地理知识都可以嘛,呃.字数也太少了.不能多一点吗? 江阴马蹄酥的作文 整篇 上海到拉萨的铁路全长4373千米,一列客车和一列货车同时从上海和拉萨两地出发,相向而行.途中客车因上下客共停靠一小时,结果货车30个小时后与客车在途中相遇.已知客车平均每小时行85千米 你的电动车电瓶修复仪用的效果如何? 废活性炭该怎么处理? 上海到拉萨的铁路全长4373千米,一列客车和一列货车同时从上海和拉萨两地出发,相向而行.途中客车应上下共停了1小时,结果货车30小时后与客车在途中相遇.已知客车平均每小时行85千米,货车 电动车电瓶修复真的有用吗?我有辆电动车,两年了 ,没管过电瓶,现在快不行了,没天只能上下班.我想能跑远点,朋友建议我买新的,可是我在这只会呆几个月了,不想在换新的电瓶了,请教修复过 车轮滚动是滚动摩擦还是静摩擦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘