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

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
SwiftColorArt:开源易用的Swift图片类库 人气爆棚 干货满满 中国电信天翼开放平台开放日圆满落幕 必须Mark!43个优秀的Swift开源项目推荐 治拖延、疗懒癌!安利12款提高工作效率工具 把ES6带进Node社区 Io.js 1.0.0正式发布 Java 2014:10个最热门、最具争议性的话题 回顾:2014年最流行前端开发框架对比评测 实例讲解SQL注入攻击 调试大规模服务器集群的五大策略 .NET编译平台Rosly将迁移到Github Wasai虚拟现实头盔与体验馆发布:虚拟现实的线下经济 订票系统不再瘫痪 阿里云确认与12306合作 Apple前工程师Warren Moore:Swift中Metal使用初体验 手把手教学:详解Swift中的iOS设计模式 见微知著,那些触动人心的应用细节设计(一) 设计优秀API七大要诀 需求 细节 BI项目成功的五大要素 BI项目成功的五大要诀 最受程序员欢迎的公司榜单发布:2015 IT人才招聘趋势分析 Swift中的指针操作及使用 Android性能优化典范 专访Google涂鸦首席设计师Ryan Germick:为什么世界需要Doodle? 不炒作就会死!小米乐视生态布局的那些爱恨情仇 100个iOS开发/设计面试题汇总,你将如何作答? 王巍:关于Swift学习和Apple Watch开发的一些建议 微软发全息影像头戴装置HoloLens 体验很真实 相爱相杀?盘点迎新年的移动互联网撕逼大战 HealthKit开发教程:用Swift编写个健康应用! 真的不够用!Apple Watch常规使用续航3.5小时 Activiti实战 百度BAE携手科技寺助力应用一站式部署 如何检测系统是否有声卡? 如何实现永久session 我要实现这样的一个简单的功能,很简单的,在线等待!急. 怪事:关于CHM的帮助文件的问题? udpsocket怎么用,在收到数据时,发送二进制数组对一些设备分配ip? 源代码分析 通过weblogic的连接池连接sysbase,出现的怪现象 唉,今天刚到公司上网看一下新闻,竟然被行政总监说了!大家说说看 一个简单的SQL命令问题,线上等待。正确的我都给分 菜问题!我添加了#include "ICMPHeader.h",然后就出错了。 高分求救-漂亮的JSP页面代码 高手紧急求救!!! 我要移动listbox中的值!! 急问Flash... 对于高手很easy问题! 这个语句错在哪里:能不能用字符去逐个的初始化一个字符串 安装SQL时没有选择默认,而是自己新建一个实例,这样如何实现远程代码连接?? 急问Flash conning333(chen)来接分 webapps\ROOT\WEB-INF\web.xml的配置问题 如何清除WEBSPHERE的缓存?一个JSP文件总是无法更新,我重启WEBSPHERE也好,修改该JSP并重新保存也好,都是显示旧页面,真气人! 源代码分析 怎样在DW中制作垂直的线条????急 ! 急!在线等待!!!! 关于dir()的小问题, 这个问题已困惑我几天啦,均没人帮我解决真的好盼望呀 急问FLash 高分求教:一个DataGrid显示双DataTable!走过路过都有份! 怎样代码控制servers中excel的合并单元格?? google能找到我了,散分咯 急问Flash. ADOCE怎样访问excel数据表格? 请 ccmoon(IzuaL) 和 cloudchen(陈系上) 进来领分, 我该怎么做? 关于将输入字母转换为大写的问题! 谁给我解释这个sql语句! 怎么将sql server 6.x 的备份文件,恢复到sql server 7上 请教pb中有没有模式窗口和非模式窗口的概念?? 设备内容句柄在Delphi中有这个类吗?如何表示? hxzhappy(冰雨)快来接分 请问在contexMenu控件中show方法如何写 请问用VC,如何在WIN2000下连接一个SQL数据源? 入参与出参 关于国外发布的软件,可以使注册用户在线或取注册码! win2000下怎样建立代理服务器 有关DBGrid的问题。 在其他版看到一个很有意思的贴子“如果是你招聘人,你会不会招和自己技术,资历差不多的,甚至超过自己水平的?”欢迎大家讨论。 急!关于innerhtml的错误? hxzhappy(冰雨)快来接分 在线求助,急 请教各位,我的sybase的数据库的log设备(即syslogs表)最近增长很快,每天增长40多兆,如何解决??? 想做一个网络代理上网 一道高一几何题如图:已知AB⊥平面BCE,CD‖AB,△BCE是正三角形,AB=BC=2CD.(1)在线段BE上是否存在一点F,使CF‖平面ADE?(2) 求证:平面ADE⊥平面ABE;(3) 求二面角A-DE-B的正切值. 北京人经常这么说:XXX.翻译成英文 是什么时候用的呢 高兴还是什么呢? 如何用maya做一个线框的正方体盒子,没有面的那种用nurbs的连接曲线方法试了下,但是连接的时候有问题要做出一个整体的线连接在一起的而不是每根线只是独立的 高一几何题一道如图:在直三棱柱ABC—A1B1C1中,E,F分别是A1B,A1C的中点,点D在B1C1上,A1D垂直B1C,求证:(1)EF//平面ABC;(2)平面A1FD垂直平面BB1C1C 上海位于五带中的什么带就一条横线 二和嘚儿到底啥意思 英语作文可以套用的模板要有中文翻译的、 嗳①嗰亽卟繻崾嘚菿到底是什么意思 英语作文怎样套用模板?这是我背的模板,请找些例句(常用的)往这个模板里套.Nowadays it is generally accepted that ②表现一.③表现二.④ There are many reasons accounting for /Special attention should be paid to t 广西壮族自治区七年级下册英语第五页 南京中小河治理工程将收官:14条河流苏州小朋友上演变装T台秀迎接万圣节马来西亚副首相为选举造势 出席者可获日本内阁官房副长官力挺《特定秘密保护数据显示中国赴美名校留学生每4人就有韩称中韩2014年起联手管制黄海非法法国数百活动人员斗牛场前集结 抗议斗韩国“科学技术卫星3”号抵达俄罗斯 500万叙利亚人在国内成难民 冲突严新警方樟宜机场缴7.1公斤冰毒 一外阿富汗总统选举唯一女候选人被取消竞选盛智文卸任海洋公园主席 其名下拥有兰乌军安-26运输机6500米高空遭击“民族风尚”微电影大赛新疆赛区启动新疆托里县公安局铁厂沟派出所“四举措新疆喀什:男子紧跟杀人嫌犯3公里 协上半年新疆阿克苏地区招商引资到位资金新疆富蕴县解决2000户农牧民收听收新疆兵地青少年“民族团结好伙伴”融情新疆党委组织部住村工作组召集暑期返乡新疆北疆企业到南疆开拓市场,南疆农民乌鲁木齐高温天:王怀林跑得勤“黑蛋蛋
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘