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

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
2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 苹果加速硬件迭代 iPad5原型机曝光 请教Web Services的分布式创建和引用的问题?急!!!!! 在c#的WinForm中如何显示cdr文件,CorelDraw图片哪怕是8.0也行 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 怎么样得到游标中的数据的多少记录。 求解1000的阶乘 请问大虾有关BootCode方面的一点问题??非常急! 高分请教:如何在安装程序时注册OCX控件? 请问:在TDbgrid控件的TitleClick事件里如何取得鼠标击键的坐标位置? netwell服务器有不断的响声,急急急................. ★★请教新闻发布系统的图文混排问题 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 这句SQL应该如何写? 怎样在VC里面开发手机上程序?需要装什么软件? 请教:这个onLoad事件怎么不起反应 关于web services,大哥麻烦帮助小妹吧! 我现在神思恍惚,无心工作,天天上网灌水打发时间,大家估计我多久会失业? 使能工具栏的某项 网络下载编程求助(紧急求助) 如何判断一个字符串中是否含有某一字符? 如何在网络断开的情况下判断,等网络恢复后再自动连接??? 如何在comboBox中添加icon--在线= 救人啦!!请教BootCode方面的问题,十万火急!! 一个关于 WISE installation 制作安装程序的问题 *.lwp的文件怎么打开亚?请大家帮帮忙!!! DataGrid为何不显示? CRegKey::QueryValue()读取数值数据时遇到的问题…… chmod命令后造成启动错误 请教大家一个关于webservice transaction的实例 菜鸟急救,注册表文件导入的问题? 填空题(急) 钱本草呢? 关于手机的问题 求救:GetFieldValue()函数出错. 一个很简单的问题,来者有分 有个小问题请大家诊下 怎么样使stringgrid中的fixrows和rowcount数目一致? 如何在JB中联接SQL数据库! 把数据结构(比如说一个链表里的数据)保存为文件,不用序列化怎么办啊? 哪位大哥有installshield的安装password? 日期型中的“年”,如何取得? SOS!!!! COPY文件有哪些办法?用什么方法比较好? 友元函数重载操作符@obj,被c++编译器编译后被解释 对vcl库底层机制一些不明白的地方2 存储图片为什么不行? 真的很苦恼,如何同时更新两个文件? 数据库问题,大家帮帮忙啊 asp.net连接sqlserver 关于在同一asp页中的两个select的问题 如何写这种存贮过程?(急) 哪儿有asp的帮助下载! PS白油系列 LP矿物油系列 还有DS系列等等我想知道代号PS LP DS等等的意思还有,白油与矿物油有区别吗? 从“每一篇到,欧阳公为终日喜,前后类如此.”这句话中你感受到欧阳修怎样的品格 600字数学论文,文采不要太好 PS把文字填充白色是什么意思 每一篇到,欧阳公为终日喜,前后类如此中欧阳修的品质 中国海洋水文对海岸人类活动有什么影响 雨后空气中的气味是如何产生的? 重2N的书本放在水平桌面上,根据 ( )条件可知,桌面对书本的支持力是重2N的书本放在水平桌面上,根据( )条件可知,桌面对书本的支持力是( )N,方向是( )跳伞运动员从高空落下,开始时 研究所研究院化学招生吉林大学算名校吗?社会认可度怎样?就业情况怎样 雨后空气“清新”味道是什么? 闪电真的会劈死人吗 镁和二氧化碳反应生成 雨后气息的作文和下雨时的声音(小雨) 闪电能劈死人吗 进化学研究院有哪些要求 雨后田野的气息,____而又____,____而又____.今天下午五点前要解决这个问题!每个空里填的最好是两个字的词 一个基本放大电路必须有些什么条件? 看了本篮球杂志,想问FG 、GF、CF、FC对应的位置分别是什么? 空气是什么味道的? 心若磐石,也敌不过绕指缠绵 对于以上这句话想找句合适的句子来拒绝 奉劝对方 水的离子积常数到底指的什么?如果说0.01mol/L的HCl溶液,那[H+]=0.01,[OH-]=10^-12,而OH-都是水电离的,为什么水电离的H+不能用10^-14直接除10^-12呢? 1/2cosx的导函数是什么 自来水可以泡面么? 什么是水文?我现在在水文局工作,对水文却没有基本的了解 那种溶剂可以清除掉白油 写出正价与负价所组成的化学式 NH4 +1价 SO4 -2价 物理——沸腾如图,装有水的容器中浮着装有水的杯子A,倒扣的杯子B,给容器加热使容器的水沸腾,继续加热,A、B的水能否沸腾?为什么? 共射极放大电路实质上是改变了放大电路的什么技术参数 fg啥意思 我现在17岁,请以我母亲的角度写一篇关于我以后42岁生日的情景,我现在17岁,请以我母亲的角度写一篇关于我以后42岁生日的情景,要求:第一:对我42岁的祝贺;第二:请以我母亲的角度写我这42年 美国大批飞鸟鱼类死亡事件是基 DI 组织所为吗?是本--LA 登亲自策划实施的食物链(生 化)武 QI 是本 --拉 登利用食物链中的重要生物体内注射一种慢 XING 传 染 病 DU ,然后 某 一 天突然集体 FG是什么意思 fg是什么意思 黄白油是什么? 在电视剧 西游记 中,孙悟空为朱紫国国王悬丝诊脉利用了什么物理知识 这就是我 作文 男生要不有文采的 函数y=x+2cosx在区间 喝纯净水应补充哪些营养物质 通常所称的“信息高速公路”指的是什么 政治副中心为何舍近求远 电路板遇高温加热后,表面白油面有一块一块的黄色污渍 信息高速公路指的是什么? 若函数f(x)=x²-2cosx+a有唯一零点,则a=?若函数f(x)=x²-2cosx+a有唯一零点,则a=2. 被子植物的受精作用是如何完成的 SO4,NH4,代表什么. 求y=2cosx+∏/3函数周期 寻,《壹周立波秀》中周立波的一句话:“世上没有绝对的公平,只有相对的____….”I、望把省略内容补充完整之后,麻烦再把整句话复制到答案页.II、注*我需要的是,周立波在播出节目里说的| 静脉瓣膜的定义是什么 有两只灯泡,个只就220V,100W,另一只是36V,40W,在额定电压下,那一个灯泡亮?那一个灯泡取用电流大?谁知道? 乳化白油是什么? 静脉吸毒的含义是什么?这是一个简答题,希望不要一句话概括的那种, 色彩的固有色 光源色 与环境色在每个地方的关系色彩的固有色 光源色 与环境色在每个地方(亮部、暗部、交界线、阴影等)的关系 鸟儿飞鸟儿飞你在思念谁是哪首歌的歌词? fg是什么意思拜托了各位 谢谢 人们对音乐、图像、气味、感觉、文字的记忆模式分别有什么不同和相同还有对速度的记忆 虽然有些多,但是请尽量回答完整 《伊索寓言》中,什么说明人们往往喜欢挑剔别人的缺点,却无视自身的缺点.A、《山鹰与狐狸》B、《两只口袋》C、《口渴的乌鸦》D、《一只眼睛的鹿》 求一篇作文“又见枝头吐新芽” 800字左右 放大电路里的英语静态工作点Q,Q的英文是什么 怎样比较硫化氢和溴化氢水溶液酸性的强弱从理论的角度 不是实验方法 作文,又见枝头吐新芽,600字春回大地,原野上、道路旁、房前屋后,那一棵棵、一排排的树,高的矮的,直的弯的立的倒的,无论是被凛冽寒风刮得一叶不剩的秃枝,还是依然挂着绿叶的繁枝,都又悄 印尼巴厘岛男子咖啡地中发现2000多美参众两院大佬不宽恕斯诺登 将派“安三中全会前夕高层密集调研民生 为改革李克强登上拖拉机驾驶室与农机手交谈梁振英:菲人质事件若1个月没成果将采曝湛江国资委官员带女下属开房 视频男李克强:农业改革要尊重群众意愿和首创德国拒绝为斯诺登提供庇护 避免影响德最高法通报失信被执行人名单信息制度五越南总理坚持推动TPP谈判 争取年内科索沃举行地方政府选举 投票点遭蒙面杭州商品房库存量达10.5万套新高 清华剑桥等名校联手研究北京雾霾天出行日媒:安倍上任后已打13次高尔夫 展印度今日雄心勃勃探火星 媒体议论“与美国新泽西一商场发生枪击事件 暂无人英内阁会议为防监听禁用iPad 高官安倍夫人昭惠拜访熊本县 体验韩式穿越印尼巴厘岛男子咖啡地中发现2000多俄拟为中国在内的20国游客提供3日免刚果(金)政府宣布该国打击反政府武装13吨烟花爆竹留英海归如何冲破“就业寒冬”折纸玫瑰求婚情人节送土豪金弱爆了阿军机坠毁遇难者有73名军人粤11万亩下一篇慢病急发山顶舞动“夜光龙”佛山一国企转制留“余粮” 职工私分近不做\"毕剩客\" 近日佛山招聘会大海底隧道每逢佳节胖三斤 佛山白领扎堆去健身佛山市政府采购中介赚钱 部分商品货不瞿颖再度反串狂飙美声 挑战男高音戴玉13日数据:哈登16罚全中 骑士后詹德力股份收购手游比例不超20%佛山三社区医院被托管 名号改变诊金看两会花絮:人大代表冒雪走进会场Style Tips黄俊华当选梧州市人大主任 徐远洲当选
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘