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

VB如何使窗体最小化并消失

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使窗体最小化并消失

如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能做到,我们也可以做到。

只要我们能截获这两个事件发送给窗体的消息,然后换成我们自定义的过程,问题就解决了。首先,用CloseWindow使窗体最小化;然后,用Form1.Visible = False使窗体消失。

这两个事件共用一个消息:WM_SYSCOMMAND,不同的是传递给窗口函数的wp参数。为取得这两个事件的wp参数,有两个方法

1、用vb的常数,这是一些以SC_为前缀的常数(S代表SYS,C代表COMMAND)

2、编程取得它们,事实上,我采用的是这种方法。在窗口放两个文本框,当任何WM_SYSCOMMAND消息发生时,先在文本框里显示wp和lp的值,很容易的发现,单击最小化按钮时,wp=61472;单击关闭按钮时,wp=61536。现在就可以开始编程了。

为了实现对窗体的子类处理,采用MsgHook32控件。

源代码如下:

Option Explicit

' API函数声明
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

' 常数声明
Private Const WM_SYSCOMMAND = &H112

Private Sub Form_Load()
Msghook1.HwndHook = Form1.hwnd
' 将Msghook1绑定到Form1上
Msghook1.Message(WM_SYSCOMMAND) = True
' Msghook1拦截WM_SYSCOMMAND消息
End Sub

Private Sub Msghook1_Message(ByVal msg As Long, ByVal wp As Long, ByVal lp As Long, result As Long)
Text1.Text = wp
Text2.Text = lp
If wp = 61472 Or wp = 61536 Then
' 单击的是最小化或关闭按钮
CloseWindow Form1.hwnd
' 最小化窗口
Form1.Visible = False
' 使窗口消失
Unload Form1
' 卸载窗口。如果有通知栏图标,就不用卸载窗口
Else
Call Msghook1.InvokeWindowProc(msg, wp, lp)
' 其他的事件由默认窗口函数处理
End If
End Sub

不仅是单击窗口右上角的按钮,其实,在系统菜单里选择最小化和关闭菜单项,也有同样的效果。

Facebook Home出阴招:Social皮,Android心 国内最火的五款HTML5前端开发框架 TIOBE 2013年4月编程语言排行榜:Objective-C四年来排名首次下滑 MeeGo复活!Sailfish OS智能手机 SDK发布 10亿美金!传闻谷歌要收购WhatsApp 从打造国内最大的OpenStack公有云开始 展望HBase的未来 你的数据库安全吗?CryptDB数据库软件可查询加密的SQL数据库 收藏!斯坦福Andrew Ng教授“机器学习”26篇教程全译 美国云计算价格战爆发 王寒:12岁儿童,该怎样开始iOS开发? 陈昊芝:腾讯!让我说你什么好? Top Paid与Top Grossing定价策略的差异 Android版百度云推送正式发布 为何开发者应推动公司开源? 从AppGratis被下架说起,苹果或将再次付出代价 58同城的“烦恼”——8K月薪安全工程师引发的入侵 软件开发实践的24条军规 思科 IBM 微软等巨头联合开发开源SDN项目OpenDaylight 巾帼不让须眉:2012年度云计算领域Top 10女性 中移动全力推进NFC 5月起乘公交可刷手机 支持Android与iOS,Qt 5.1 Alpha全新亮相 Google Play:劣质Android应用已无藏身之地! 360推出信用网站认证开放平台 联合百家协会围剿钓鱼网站 经验分享:百度测试架构师眼中的百度QA(一) 在线旅行服务行业开放API带来的新机遇 专访:悬疑恐怖游戏Year Walk美术及音效设计师 解密:微软都柏林数据中心的神秘“免费冷却”装置 云计算如何影响数字化营销? 榜单:十位帮我们打理数据的存储大佬 OpenStack Grizzly版发布 Comcast、CERN成为新会员 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! help me ~!!! 以下行为究竟是关闭端口还是使用端口 callzjy(【剑客西门吹雪原来是仁者帮帮主...】) 怎么翻了这么多老帖子出来了??? 求原代码下载 大家都在干什么? 有什么东东大家可以一起研究研究? 初学者问:如何在listview中查找其中一行? fortran语言的高手请进,分数不够再加 我是一个刚刚步入JAVA世界的小鸟 恳请得到大家的帮助 。。 ActiveForm发布问题。 怎么能让DELPHI编出的程序像QQ一样可以自动隐藏? 一个关于dll的例子,运行不了,请帮忙看一下。 程序打包 BCB产生调试符号的问题 为什么要4张1寸的,1张2寸的照片?要这么多干什么/ 请问怎么样用C#遍厉注册表? 请问大家如何做一个实时的屏幕抓取的程序啊,是实时 各位大哥大姐帮帮小弟,先谢谢了!!! 用Delphi开发的WebService能否在NT4的IIS上面运行? 键盘纪录问题 一个窗体有多个按钮,怎样让一个按钮成为默认按钮? 关于MYSQL_CONNECT(),有点疑问 ASP.net好像也不能替代JavaScript吧? 网络游戏外挂之我所见(7) 键盘纪录问题 键盘记录问题 我为谁哭泣.. sql小问题 大家快帮帮我吧,我快崩溃了 谁知道VisualAge for Java 3.5的help打不开该怎么办?(能解决问题必给分) 网络游戏外挂之我所见(7) 谁知道VisualAge for Java 3.5的help打不开该怎么办?(能解决问题必给分) 英语翻译原句是 死亡如影相随 房间是4.8米乘以2.5米,该拿多少平方地毯我想要一些这样算实际拿地毯的公式.该怎么裁.求大侠们帮忙.地毯是4米宽度的。 充电器上5A 10A 15A 如影相随是不是成语?大师们帮帮忙! 在△ABC中,AB=AC,∠BAC=∠108°,当∠CAD=72°时,△ABD与△ACD是等腰三角形吗?为什么?只有ab=ac 不等于cd 请问胶体电池的优点有哪些? 在雨中 看图作文.一共有四副图.要求::①仔细观察下面的图画,并根据这三幅图的内容,想象第二幅图的内容.(不必画出来)②把看到的和想到的内容连起来,围绕中心,写一篇450字以上的记 Rt△ABC中角BAC=90°,AB=AC=2,以AC为一边,在△ABC外部做等腰三角形ACD,则BD=? 要是想要使用10A的熔丝 但手头只有15A和5A的熔丝 怎么办?(两条方案)想不通如果是两条5A串联 那么只要电流过了5A不是两条都熔断了么.等于没效果啊 = = 图上画了些什么?小朋友正在干什么?他是什么表情 10a乘10a等于 什么是胶体电池 Could you___the baby laugh?--Could you____the baby laugh?--Certainly.It's easy.A.ask B.am C.are D.were 一天吃几根香蕉最好? (5a方b方+10a方b的立方)除以多少等于a+2b 现在那种红外感应开关是只要感应范围里有人 就会一直亮 还是会延时亮十几秒灭了再亮啊? 一天吃几根香蕉最合适? 为什么要倒置培养 不延时的红外感应或者光电开关有吗?我需要一种不延时的红外感应开关或者光电开关,要求当手放入探测范围时,开关立即打开或者关闭,请问是否存在这种开关,价格约是多少? 一天最多吃几根香蕉? -5a的3次方+10a的2次方-20a 等于多少 Don't leave, i can't spare you the world has. 是什么意思 黄河最早固定下来的河道是 想去天空之镜—玻利维亚乌尤尼盐沼要会什么语言么 一天吃几根香蕉比较合适啊?吃两三根会不会太多啊? 为什么黄河的河道是呈几字型的啊?途中遇到了哪几座大山啊?水是顺着地势低的地方流的.那朋友你能不能帮我分析一下黄河途中所经的各大地型.希望越详细越好,别说中国西高东低.这太概括. 玻利维亚 乌尤尼盐沼 挺说玻利维亚 乌尤尼盐沼 下完雨之后的景色是最美的我想问问 那里常下雨吗如果去 什么季节去最合适 北京有去乌尤尼盐沼的旅行社吗? 香蕉可以提高记忆力吗?一天吃几根香蕉最好了? 黄河长江河道是天然还是人工的? 初二一次函数:根据图象回答问题1.A、B点分别代表什么?2.说一说这两个数量是怎样变化的? 一天吃几根香蕉为极限?香蕉促消化我是知道的,但吃了一根后,由于它特别新鲜我就又吃2根,但我不敢吃多,怕吃多了对身体有害.到现在还想再吃一根呢.听他们说吃多了会拉稀呀?一天吃几根是 谁知道黄河河道内的滩涂地属于哪里?,我们那儿建旅游区地都被占了,五六十岁的老人们找不到工作又闲不下来所以想在河道内开点荒种点菜,每亩地每年1000实在是不够开销啊,可是原本属于我 聚集蛋白是什么意思 艾滋病是由什么引起的 煤灰砖还是水泥砖用于建房好 √10a·√5a=5√2a这道题对吗还有 a√1/a=√(a²·1/a)=√a 这个对吗 艾滋病是什么引起的 已知砖的密度为1.5*10^3kg/m^3,用长25cm,宽12cm,厚6cm的砖块砌房子的墙,若房子外墙的面积为720m^2,墙的厚度为25cm,则修建此房约需砖___块,如果汽车一次能装载4t,则最少要拉___次才能将 细胞真的在晚上繁殖? 快要读二级了,孩子的看图写画很差,怎么样才能让她提高水平,请高手指教, 如影随心什么意思 用15牛的水平拉力在水平面上拉A物体,A物体做匀速直线运动,若改用20牛的水平拉力拉A物体,则A物体做( )运动,此时A物体受到的摩擦力为( ) 1.南方古猿、能人、直立人、智人这四个人类可进化的阶段中那一阶段人类最先开始直立行走?2.克隆羊多利具有生殖能力吗?骡子具有生殖能力吗? 是非难解虚如影 是什么意思? 5a-1/8=7/4 进化的阶段 特征 古猿 南方猿 能人 直立人 智人 古猿 特征:人类和类人猿祖先,开始向不同方向进化 我想问下我家的卧室地面长4.1米,宽是3.5米 没装潢 高是3.2米 请问下我房间的面积是多少,应该买多大P数的 三名同学量体重,小影,小佳俩人的平均体重是43千克,加上小明的体重后,他们三人的平均体重就增加了2千克.小明的体重是多少 看图写画我是用吸管和废衣架做桥的弯曲的一段,用泡沫做他的平面,下面奠了纸板,同时牙签作为护栏,废弃的饰品中的小花小草做绿化,体现出一种环保的概念,用桥来显示出宁波是我们美好的 一直杆AB悬挂在天花板上放开后直杆做自由落体运动,已知直杆通过A点下方3.2米处一点C历时0.5秒求直杆长 a big mess 的意思 万丈盐桥怎么样 如图 在三角形ABC中,AB=AC,圆O是三角形的外接圆,D为弧AC的重点,E是BA延长线上的一点,若角DAE=114°求角CAD的度数 I’ll clean up my mess when I’ve buried him.my mess在这里是什么意思呢? 爱滋病的病原体是什么?它的结构由哪两部分组成?请详细说明原因.十万火急! 厅里,地毯占了地面的4分之1.已知房间地面面积是16平方米,小群家大厅地面面积是多少平方米 蛋生鸡先?蛋生鸡还是鸡生蛋先? 我去抽签了,签上说如影随天.我抽的是婚姻签, 碱基序列是怎样测定出来的?怎样?我想,碱基序列这么庞大,测定它序列的效率应该是怎样呢? 我把CAD图平面图放进去我要怎么算比例尺呢 小猫将斗牛犬尾巴当做逗猫棒玩 网友直俄吁欧盟勿逼迫独联体国家在二者之间做突尼斯发生自杀式袭击 造成袭击者自身德国锁定美情报部门窃听站位置 位于使美国安局总监否认曾非法窃取谷歌和雅虎为躲避意大利繁冗昂贵程序 180对夫泰辣椒酱工厂被指呛辣气味扰居民 在美德国派代表团赴美 要求签署协议保证不卡梅伦首次跌出权力榜前十 遭英媒体嘲叙反对派称副总理遭解职或为叙政府“化法国称去年查处医保舞弊诈骗金额超一亿日本参议员当面向天皇递书信 官房长官印度一大客车凌晨起火爆炸 造成睡梦中印度一客车爆炸起火44人死 司机清洁朴槿惠称决不容忍腐败 要求根除核电腐男子扮高富帅专门诈骗按摩女 谎称投资俄罗斯一火山喷发 烟柱高万米持续50媒体曝美全球监听地图 澳大利亚是美监近3成日本大学毕业生3年内离职 疑被小狗被饿三周吃伞充饥 其主人不愿救治研究证明蝙蝠系非典传播源 病毒可由动干货!P2P金融的十大谎言与真相暴力高开释放长阳反攻信号!沈子嫣、美联储会议偏鸽、油价获准再度小贝&马云世纪会面,你要脸还是要钱?跳空高开预示大盘将走出惊人反攻行情!同一个卧室,十种不同的装修风格,你最深度 | 金融改革何以受关注[晚自息] 失眠党们的福利!不要数羊油价受初请疲软提振日内短线低多为主住房公积金异地贷今日起正式全面推行敢不敢再狗血点。[下午茶] 慈禧养颜四大宫廷秘方鼓励内部创新,是大公司保持进步的最重绝不坑,成都出发浩纳陪你周边4日自驾100元能买到哪些高大上物件?教你们一招[轻食达人]小米粥的神仙吃法,小米这一文看懂风靡美国的STEM教育(附S谁弄的,这么齐全,太有用了!收下来慢如何增强早产儿的抗病能力防P2P诈骗跑路 互联网金融大佬抱团
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘