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

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
在ListBox适当设定水平滚动条的宽度-VB资料 在VB中利用API实现窗体的平滑显示 在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 在系统菜单上添加自定义菜单项 -VB资料 在运行时动态生成多个相同的控件?-VB资料 在最小化状态时提供提示 -VB资料 暂时禁止窗口更新-VB资料 VB怎样得到文本框(TextBox)中的文本行数? 制造出透明的Form -VB资料 VB制作半透明窗体和形状不规则的窗体 VB制作方向按钮 VB制作渐变的窗口背景色 字体闪烁 -VB资料 自动改变控件大小-VB资料 自制IE风格按纽控件-VB资料 VB6.0中通过MSChart控件调用数据库 用VB6实现动态增减控件 ActiveX控件的创建-VB资料 ADO控件和DATA控件的冲突(不能共存)的解决方法-VB资料 Combo的自动查询技术 -VB资料 DirectX7.0使用心得(1) -VB资料 哪位大下指点一下:html 带参数访问 servlet 小小调查,向有识之士请教~~~ 谢谢~~~~ 有没有一种线程安全的方法来取得一张表的元组个数? listview排序的,过来看看。。 有一获国家专利的中文输入法软件急于开发 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 八年级上科学作业本(浙教版)B第8页第五节水的浮力(2)的第8题2006年5月,经过长期专业训练的魔术师大卫·布莱恩在水族馆玻璃缸中生活了177个小时,布莱恩生活的玻璃缸呈球形,容积约为7. 地中海和红海内部的洋流方向是怎样的?我想知道的是他们各自内部情况…… 为何往结冰的公路上撒盐? 科学八上水的浮力习题 1.一杯装满水的玻璃杯,它们的总重为10牛顿,现将以石蜡(密度为0.9×10³千克/米3)块轻放在水中,石蜡块静止后漂浮在水面,并从杯中溢出水重0.98牛顿,则该石蜡块受 初二水的浮力一共两道题需要问下,希望大家不仅可以给我标准的答案,更重要的是最好能给我讲解一下.1、一个鸡蛋沉在水中,往水中倒入一些浓盐水后,使鸡蛋浮在水中,鸡蛋所受的浮力讲_____ 为何清除道路冰冻积雪时要撒盐 1.等质量的两种金属密度分别为P1,P2.将两种金属混合,试问合金的密度?2.等体积的两种金属密度分别为P1,P2.将两种金属混合,试问合金的密度?3.当酒中含水量为10%~20%时,求酒的密度? 表层海水被吹走,其他海区海水从底部进行补充,那么此刻海区表层海水盐度是大了小了? 大家都知道压强越抵,水的沸点越低.那如果把水放进太空那种真空环境 ,它的沸点是多少呢?又是以什么方式沸腾呢? (内含密度表) 补充图片 上升流为什么会使印度洋西部海域表层海水盐度下降? 求压强与水的沸点的关系式. 配制密度1.1*10立方kg/立方米的盐水 测得配制的500立方厘米的盐水质量为600克,问这些盐水是否符合要求,若不符合要求应加水还是加盐,加多少克 电子.光.会不会热胀冷缩?物体是由分子组成分子和原子组成,原子是由原子核和电子组成,物体能热胀冷缩,应该电子和原子核也能热胀冷缩,那光呢? 冬天为什么在道路上撒盐能让冰融化说说具体原理和知识, 水的浮力怎么算? 真空度与水的沸点的关系表 为什么冰撒了盐后会溶化的更快? 根据阿佛加德罗定律,下列说法正确的是 a同温同压下两种气体的体积之比等于摩尔质量之比b同温同压下两种气体的物质的量之比等于密度之比 c同温同压下两种气体的摩尔质量之比等于密度 已知配制的盐水520克,体积400立方厘米,求加多少水再配成密度为1.2克每立方厘米的盐水 真空度与水的沸点的关系是直线关系还是曲线关系啊,化学实验要作图,做出来的数据描点后似曲线又非曲线,很纠结啊.如果能给条公式就更好了. 依照阿伏加德罗定律,下列叙述正确的是 ( ) A.同温同压下两种气体的体积之比等于摩尔质量之比   B.同温 超声波身高测量仪的工作原理是什么?现在医院都用那种超声波身高体重测量仪,感觉很神奇,与以往的手动测量仪和电子测量以不同,人只要站在上面,几秒钟就能得出身高、体重等数据.不知道 谁能提供水在不同真空度下的沸点? 根据阿伏加德罗定律,下列叙述中正确的是(双选) A.同温同压下两种气体的体积之比等于摩尔质量之比 B.根据阿伏加德罗定律,下列叙述中正确的是(双选)A.同温同压下两种气体的体 规则形状固体密度的测量仪器和基本步骤后面还有不规则形状的固体密度的测量仪器和基本步骤.希望能回答一下. 真空度为-0.08MPa时,乙醇的沸点是多少? 有关浮沉的一道物理题在一个水槽里装入适量的水,把一个连接著管子的小胶瓶(瓶内只有空气)放入水中..胶瓶悬浮...若向瓶内呼气,则胶瓶上浮还是下沉..那吸气呢?并说明理由 三坐标测量仪的工作原理 请问在什么情况下水的沸点会降低 同温同压下,两种气体摩尔质量之比等于?--------我在线等 水的浮力题物体在空气中称时重29.4牛,把它浸没在水中是重9.8牛求物体所受的浮力,物体的体积,物体的密度 通常情况下水的沸点,凝固点: 把一块0℃冰放入0℃的水中和把它放水0℃的盐水中现象相同吗?为什么? 为何同温同压下相同体积任何气体物质的量同 什么情况下水的沸点会低于100摄氏度有两个为什么水的沸点不是100摄氏度、、一个是外界大气压小于一标准大气压、、还有一个不知道、、各位人士,,帮忙啊~~~ 把零度的冰放入零度的水中和把它放入零度的盐水中现象相同吗?为什么? 水的浮力的题目潜水员从浅水潜入深水,以下分析体验体验过程正确的是( )A.脚越来越疼,是因为水底对人的支持力越来越大B.脚越来夜疼,因为人受到的重力越来越大C.脚不疼,因为人越来越 一般情况下水的沸点能到达100摄氏度吗 把一块冰放在273K的水中,另一块放在273K的盐水中,各有什么现象? 阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气体是同种,还是可以是两...阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气 物质的热胀冷缩与分子有什么关系 物体沉浮与密度的关系?过了当天就没分了. 谁有关于水的浮力的题目的?(简单点) 气体热胀冷缩如何用分子的运动来解释? 求高中化学各种物质的沉浮(密度)情况例如:四氯化碳比水重,所有的烃比水轻请系统的讲讲,之间的联系,最好分无机有机让我彻底分辨各种物质的沉浮情况 1mol Na,1mol Na+和1mol OH-所含电子的物质的量分别为多少 热胀冷缩是分子变大?分子会变大吗?还是别的什么? 物体的沉浮和物体的密度和液体的密度大小有没有关系拜托各位了 3Q我想知道物体的沉浮和物体的密度和液体的密度大小有没有关系.理论上的我懂、但是想知道为什么 顺便提一个题、两个 有木球,铁球,铜球,他们在水中静止情况为:木球漂浮,铁球悬浮,铜球下沉,球一定是空心的. 为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验设计:为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验 用盐水选种密度1.1*10的3次方,现配500ml盐水,质量0.6kg,问符合要求?如不符合加盐还是水,加多少? 同温同压下,物质的量之比等于体积比等于浓度比还等于什么比,是质量还是摩尔质量同温同压,密度比等于质量比还是摩尔质量比 寒冷的冬天.雨雪天气的道路上往往会结冰.在道路上撒些盐能加快冰的溶化.说明其中的道理. 盐水选种问题中,为什么加水可以使盐水的密度变小,盐水的密度与浓度有关吗? 初二水的浮力计算题某金属球在空气中重20牛,将它浸没在水中时称得重为17牛,求:这个金属球的体积是多少? 为什么冬天要在马路上撒盐来加快冰的溶解? 八上年级科学 水的浮力 15.体积为1000 cm3的物体,放入水池中,处于静止状态,物体受到的浮力为6N,求:(1)物体浸入水中部分的体积是露在外面的体积的几倍?(2)如果将物体全部浸入密度0.8×103kg/m3为 最后一问为什么收集到沸点较低的馏分是甲醇 为什么温度高时,物体的分子之间的空隙会胀大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn