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

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
20个优秀的前端框架 以AWS和vCloud为标杆看四大开源平台的定位 桌面集成开发环境五年内必将“死亡”? 助影人圆梦奥斯卡 8mm相机应用其实很平庸 苹果应用审查团队叫停Cookie追踪技术 时势造英雄:中国早期O2O创业故事 iOS开发与Android开发的四大不同 “消极抵抗”AWS OpsWork?RightScale首次宣布转售并支持GCE 2012年VC都把钱投给了哪些大数据初创公司? 耐用性将成苹果iWatch最大挑战 Sphinx:首款全硬件加速HTML5游戏引擎发布 PayPal创始人Levchin又创办了一家移动支付公司Affirm Zuck、Bill Gates、Jack Dorsey上银幕激励孩子编程 十款最新开源的开发者工具/应用(组图) Django 1.5发布,Python 3开始进入主流? [爆料]英特尔:将Hadoop“固化”到Xeon中 姗姗来迟:微软终于发布Windows 7 IE10正式版 谷歌推Google+登录系统 与Facebook争夺用户信息 微软在CodePlex上开源C++ REST SDK 代号Casablanca 论OpenAPI的起源与历史 LinkedIn开源低延时变化数据捕获系统Databus 微软发布全新WP应用 随时查看App崩溃信息 做iOS开发,我为什么弃用Objective-C而选择RubyMotion? Stinger Initiative:让Hive提速100倍 2013年云计算的九大威胁 W3C小组发起新“汽车与Web平台业务组”项目 苹果CEO:请忘掉股价 未来依然有伟大产品 两周营收100万,GO桌面在Google Play做对了什么 “吸金王”Puzzle & Dragons是如何炼成的 初创公司Kickboard:让父母了解孩子的在校表现 Rackspace收购开源数据库公司ObjectRocket 还是有关于图片上传,请高手帮忙 加强型的 MSFlexGrid 我认识 KiteGirl(小仙妹) ( 是个好女孩 代表到底是什么东西? 有良知的中国人近来看看! 在vb中做的ActiveX DLL文件如何在vc中调用????? 谁能给我提供磐英810主板的显卡驱动 请问用PDM从数据库中反生成的数据模型,连接到另外的数据库中生成库表,为什么会失败? 请问如何将office2000或office xp 的激活提示除掉 怎么在LINUX下编译JAVA? 请问foxbill:.h文件之前的这些都是什么意思? MEMFILE例子的-----送分帖! 请问如何将office2000或office xp 的激活提示除掉 关于class的问题 我的“路由和远程访问” 出了一个怪问题 用VB设计自己的E-mail系统 这个就是你们说的美女檬檬吗? 我觉得....... 两个小问题————高手赐教! 一个局域网内监控程序,有点问题,请大家帮忙看看! 怎么在LINUX下编译JAVA? ADO数据库简单问题? -128的原码,反码,和补码是什么 ado问题,紧急!高分求救 展望COM,我的COM学习计划!来看看! 借宝地一用,请有良知的中国人近来看看--印尼华人! 拨号上网问题 人民银行网站建设中数据库存储过程的调用 100分求解一个能打印*.frm的控件,提供相关资料的也给分,27号晚5:00结账送分 visual C++ ??? Delphi??? 我憋的难受! 一个编译错误。不知道是什么原因 请问如何使用vbscript删除表的一行(制定行) OracleOraHome81ManagementServer起不来? 关于Tuxedo? 使用apache映射虚拟目录的问题! 谁有VC下类EXCEL的代码 进入windows的目录需要密码的问题 com+组件导出的客户端代理,安装到win98客户机,客户机createObject出错 救急!请问哪里有CrystalReport的书以及源码? QUERY的一对多问题! DLL里面不能修改注册表吗? DLL里面不能修改注册表吗? 急,给高分!!!哪里有非评估版的SQL Anywhere 6 可供下载! DLL的问题 请问能否控制DataGrid编辑时的文本框宽度?? 大虾!大虾!大虾!快过来?这里的问题真奇怪!!SQL2000 装不上,急的我从处男变和尚!解决问提我给分————50分! 强烈声讨那些声讨KiteGirl(小仙妹) 的人!路见不平!!!!!!!! jscript里面有没方法和vbscript里的replace一样 Java 3D 初学一问 难道没有人会吗? 请各位帮忙测试一个MySQL管理软件 求教:如何实现交叉表 HW叠加层是什么意思 如图,在菱形ABCD中,E是对角线AC上的一点,若AE=BE=2,AD=3,则CE=? 能帮我翻译下wars mat bw fought with weapons,but they are won by men HW什么意思 如图,在梯形ABCD中,AD平行BC,AC,BD相交于O,设S△ABO=S1,S△AOD=S2,S△BOC=S3,试说明;S1^=S2乘以S3我没有说AC垂直于BD哦,请补充好,尽快!这是我今晚的家作 英语翻译北京,快要和你说再见了.好像很简单,哈哈!北京,我要暂时离开你了~翻译下这个, 几何:设梯形ABCD的对角线AC与BD相交于点O,AB为一腰,AOD 和BOC的面积分别为4和9,求这个梯形的面积要步骤在线等~~~~~~~~~~~~ 中、法、印度个自的具有象征意义的建筑物 一个梯形的面积为48平方厘米,上底为6厘米,下底为12厘米.求它的高. 龟兔赛跑的故事告诉了我们什么?在现实生活中有没有这样的问题? 某同学在地面上拉着一个质量为30kg的箱子匀速前进,动摩擦因数为0.5,求出拉力最小值设绳子与地面夹角为a,摩擦力为f,拉力为F 梯形的面积是42cm平方,高是6cm,它的下底比上底的2倍少1cm,这个梯形上底和下底的长分别是多少?(用二元一次方程解答)求过程 同样的物体在月球上的惯性比在地球上小,这句话对吗? 某同学在地面上拉着一个质量为M=30KG的箱子匀速前进,已知箱子与地面间的动摩擦因数为0.5,拉力F1与水平面夹角为45度,G=10M/S的平方,求绳子的拉力F是多少?(答案是100根号2) 北京最有象征意义的建筑是什么? 军牌有什么特征 )如图所示,某同学在地面上拉着一个质量为m=30kg的箱子匀速前进,已知箱与地面间的动摩擦因数为μ=0.5如图所示,某同学在地面上拉着一个质量为m=30kg的箱子匀速前进,已知箱与地面间的动摩擦 美国有哪些著名建筑? 请问有那个大神知道这个军牌GA11111是什么意思啊? 如图所示,拉一个44kg的箱子在水平面上匀速前进,已知箱子与地面动摩擦因数为0.5,拉力与水平面夹角为3...如图所示,拉一个44kg的箱子在水平面上匀速前进,已知箱子与地面动摩擦因数为0.5,拉力 美、英国象征意义建筑物 10kw发电机,额定转速为1500转,问多少牛顿力能带动? 某同学拉着一个44kg的箱子在水平地面匀速前进,已知箱子与地面的动摩擦因素为0.5,拉力F与水平方向的夹...某同学拉着一个44kg的箱子在水平地面匀速前进,已知箱子与地面的动摩擦因素为0.5,拉 梯形ABCD中,AD平行BC梯形ABCD面积=S,S三角形AOD=S1,S△BOC=S2,S△AOB=S3.求证 在月球上,物体有惯性吗? 在四边形ABCD中,AC垂直BD,三角形BOC面积是3,三角形DOC的面积是是6,三角形AOD的面积是4,三角形AOB的面积是多少? 在梯形ABCD中 AD∥BC AD=1 BC=3 △AOD、△AOB、△BOC的面积分别为S1 S2 S3求S1:S2 和 S1:S3 急………………………………………… 在月球上举重比地球上容易,所以质量相同的物体在月球上比在地球上惯性小, 建筑施工图中bw bf hc 如图,在菱形ABCD中,AE垂直BC于E,AE=1CM,BE=EC,求BD的长. 怎么才能把汽车挂上军牌,一定要是军人吗? 300# API5L PSL2 BNS MSSSP-75;BW 在梯形ABCD中,AD//BC,AD=3,BC=4,三角形AOD、AOB、BOC的面积分别为S1、S2、S3求S1:S2:S3. 力的定义是不是:力能改变物理的运动状态? 梯形ABCD AD//BC AD=1 BC=4 求S1:S2:S3:S4 S三角形AOD=S1 S三角形DOC=S2 S三角形BOC=S3 S三角形AOB=S4最好在八小时内回答 如图,菱形ABCD中,AE垂直BC,BE=EC,求角B、∠C度数 平衡力能改变物体运动的状态,这句话对吗?我觉得这句话是对的,比如一个从高空坠落的物体,此时它没有收到平衡力,当我给它施加一个力使它二力平衡,这样它就由加速下落到了匀速下落,这样 已知AC垂直BD于点O,三角形AOD、三角形AOB、三角形BOC、三角形COD的面积分别为S1、S2、S3、S4,设AC=M,BC=NA、S1+S2+S3+S4=1/2MNB、S1+S2+S3+S4=MNC、S1*S2*S3*S4=1/2MND、S1*S2*S3*S4=MN过程!好的追分 如图,已知梯形ABCD中,AD平行BC,AD,BD交于点O,△AOD,△DOC,△BOC的面积分别是S1,S2,S3,且S1:S2=4:9,求S1:S2今天就要是S1:S3=4:9 可以说明力能改变物体运动状态的是?1压力使矿泉水瓶变形2压力使网球拍变形3拉力使弹簧伸长4力把足球踢出去 已知梯形的面积是42cm²,高是6cm,它的上底比下底的2倍少1cm.求梯形的上下 如图,菱形ABCD中,AE⊥BC,BE=EC,AE=2,则BD=, 如图,已知△AOB,△AOD,△BOC的面积分别等于10,8,25,求四边形ABCD的面积. 已知梯形的面积是42cm²高是6cm,它的下底比上底的2倍少1cm,求梯形的上、下底 如图 倾斜角为θ的电梯 质量为M的人 电梯以加速度a匀加速上升 人受到的摩擦力方向与大小 支持力的大小 如图已知O为三角形AOB三角形AOD三角形BOC的面积分别为10.8.25则四边形ABCD的面积为【 】 以知梯形的面积是42cm²,高是6cm,它的下底比上底的2倍少1cm,则梯形的上底和下底是多少 如图,在梯形ABCD中,AD平行BC,AC与BD相交于点O,△AOD的面积=s1,△BOC的面积=s21.求s三角形AOB=s三角形DOC=根号s1乘根号s2 2.求证s梯形=(根号s1+根号s2)^2 重500N的人用10N的水平拉力将50N的物体沿水平方向均速拉动10m在此中,拉力所做的功是多少? 钢筋计算规则里的英文字母表示什么意思?比如HN、LAE、LLE、 如图,菱形ABCD中,AE⊥BC于点E,且BE=CE,AD=2 (1)求BD的长 (2)求菱形ABCD的面积 已知任意四边形ABCD,三角形AOD的面积是4三角形,三角形BOC的面积是64,求四边形ABCD的面积是多少? 工程中符号LaE是什么意思 求意大利语翻译bella composizione,ottimo bw 已知平行四边形ABCD的面积为36,三角形AOD的面积为8,三角形BOC的面积为多少? 梁平法中的Ll,Lle,La, 急需!管件英文翻译:EL LR Sch BW AS ASTM A234Gr WP22Red Tee Cap Stdwt con Stdwt deg mt or pce quantity这些分别是什么的简写 hw是什么意思 建筑中Lae Lie各代表什么符号 怎么读法? 英语翻译在1976年举行的第21届奥运会上,美国摔跤运动员法里纳赛前称体重时,指示灯亮了,表明他的体重已超过级别标准,他赶紧脱去背心,指示灯没有灭,他又赶紧把太阳镜扔到一边,灯仍然不灭
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘