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

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

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

风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360°全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 高手请进! delphi调用VC写的dll问题 corba达人快来帮忙!!!!! 不用JavaMail能在页面上直接发信给用户吗? 图像 up有分 大哥大姐们!小弟碰见了感情问题,大家帮帮小弟好吗,郁闷中……痛苦中……这里真的有一种家的温馨,所以小弟畅谈心扉,望大哥大姐帮忙! vc6的mfc里有CUIntArray、CStringArray,为什么没有CFloatArray,自己写怎样实现? 请问fastreport破解版哪里有下载? 这是我作的jsp和bean作的程序为什么不能运行:这一次发的是运行错误的信息。 谁敢拍着自己胸口摸着良心说没有用过马甲的 麻烦了:) 如何建立一个button清空文本框? 关于在RedHat2.1As上安装Oracle9i(9.0.1)的错误问题,帮帮我吧,火烧眉毛了! 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 用FLASHGET无法下载. 趁着各位斑竹到任,赶紧把几个悬而未决的问题提出来,呵呵! com+的调用方式 哪位大侠知道今年计算机等级考试二级C语言还是用Turbo C2。0吗?还是在Dos环境下吗?(100相赠) 关于多媒体定时器的问题,各位进来看看 session出的问题,高手请进来!! 请问,大连雅奇培训如何?请指点。。。。。。 怎样用header()做下载文件? 关于检测组合键的程序怎样写? 菜鸟问题!!!页面显示后台数据 请问软件包LEDA -- library of the data types and algorithms 哪里有下载的? 如何获得当前页面中的所有Textbox控件集合? 如何对两个表操作???谢谢! java的程序在写Dreamweaver 4里写完不可以直接用,是不是 打印的问题 DELPHI5的资源编辑器用起来很不爽,有没有好点的? 帮帮忙~~~~ 请问软件包LEDA 哪里有下载的?谢谢 ado连接远程数据库是以文件共享方式,还是c/s方式啊? 有没有工作的JAVA程序员吗? 简单的语法问题 vb还是不太会用 求教 最菜的问题 如何保存无法保存的网页? 只要每人献出一点爱,人人都能成为程序员 呵呵,又有问题了 苦恼,大家帮忙啊 关于声音处理的一个问题 求英文资料,急!!! 帮忙解释一下程序,谢谢:) 怎样实现这样的存储过程?高手快来! 用过websnap的进来看一下,巨简单! 调试版本与发布版本的区别? 急等答案, sql的基本表是用一个存储文件表示还是用若干个存储文件表示 我的Windows 2000有时无法关机(重起) ********通过编号找名称!*******求最快的方法!!! 格式化硬盘后安装WIN98过程中为什么出现蓝屏,继续安装下去连软件都安装不了? 如何保证试验仪器设备状态正常 蝙蝠是什么动物?哺乳动物还是卵生动物? 化学反应向正向或逆向移动,为什么可以用来提高原料利用率?改变的是速率,为什么最后各物质的质量都会变?而催化剂也改变了速率,却不能改变质量? 谁知道耐磨擦试验机的产品用途及特点? 地震中的父与子中出现:无论发生什么,我总会跟你在一起. 用S E P A L E 组成一个单词 纤维素多的食物指什么呢 青蛙和鹅用什么繁殖后代鲸鱼和人类是什么生. ,试卷说用食醋可以建议鸡蛋壳是否溶于酸,我知道因为食醋中有醋酸,然而,鸡蛋壳是否溶于酸,鸡蛋壳主要是碳酸钙,这东西和酸反应生成二氧化碳, 纤维素高的食物是什么 鹅用什么繁殖 检查装置的气密性时,为什么要用手握紧试管? 什么原因会发生泥石流? 为什么动物的白化种这么常见? 氯酸钾自分解为放热反应,那么为什么制氧气要催化剂还要加热 牙齿最多的哺乳动物 有什么简单的变废为宝的方法哦 属于哺乳动物,但要靠生蛋来繁殖后代的是 没有牙齿的哺乳动物是什么 将污染通过什么方法变废为宝呢? [脑筋急转弯]既是哺乳动物,又要靠生蛋来繁殖后代...这是什么?既是哺乳动物,又要靠生蛋来繁殖后代...脑筋急转弯! 哺乳动物牙齿分化的意义? 从高楼相隔一秒先后释放两个相同材质制成的小球假设小球做自由落体运动则它们在空中各个时刻的间距怎样化 检验气密性为什么要握住试管? 为什么会发生泥石流?怎么导致的? 在空中的某点A,让小球自由落体,到达地面的时间为0.8s,仍在A点以vA的初速度竖直上抛小球,需要1.6s才能在空中的某点A,让小球自由落体,到达地面的时间为t=0.8s,仍在A点以V的速度竖直上抛小球, ,一些中文词语我在学习毛邓三,经常会出“如何正确认识……的意义”和“如何正确理解……意义”.这两个一样吗?还有如果回答简答题是不是写上该问题意义的答案就行了.语文理解能力不 人类以后会进化吗? 为什么,当绿色的光射到红纸上,纸会成黑色,而当红色的光射到绿色的纸上,纸就变成了黄色?这两个不是一样的吗麻烦说清楚点 我的话题很简单,就是一个词“家庭”. 地震中的父与子中心思想是什么? 2012年会不会出现九星连珠 黑洞是怎样产生的? 向哥哥借500元,向姐姐借500元,买双鞋花了970元,剩了30元,还姐姐10元,还哥哥10元,自己还有10元,一共990元,剩下的10元去哪里了? 养殖青蛙从卵到出售要多长时间? 氧气有毒吗 在姐姐那借500元钱在哥哥那借500元钱、买鞋花970元剩30元还姐姐10元还哥哥10元,自己剩10元欠哥哥490元欠姐姐490元490+490=980加上自己剩的10元等于990元那10元哪去了? 初二,变废为宝或小发明,设计图,急求~~~~~~~~~ 感激不尽 氧(O2)有毒吗? 生活中的摆动有哪些?诸如钟表摆动、秋千、台秤的指针,还有什么是摆动的呢? 筛菌用的氨苄(amp)有什么味儿吗?10mM的,我的amp失效没有? 氧中毒:氧气有毒吗? 在台秤上放一个空的金鱼缸,然后用玻璃杯盛满水,一杯一杯地往里倒.当倒进2杯水时,台秤上的指针指向600克,当倒进5杯水时,台秤上的指针指向750克.当倒进8杯水时,台秤上的指针指向多少克? 检验试管气密性实验的原理用手捂住试管的那个 请问氧气有毒吗? 哺乳动物有几类 做实验时 应该先检查气密性还是先装药品如果先检查气密性再装药品 那么不会有空气又进入试管中吗 《地震中的父与子》一文中,父亲创造了什么奇迹? 九星连珠会发生什么 容器中装有水,水对容器底的压力为10N,如把重13N的木块放入,木块浮在水面,水也没有溢出,则此时水对容器底的压力为()A.等于13N B.大于13N C.小于3N D.条件不知,无法判断 自然界金属元素分布请给出详细回答 大肠杆菌培养及计数在对培养的大肠杆菌进行活菌计数时,发现琼脂表面有乳白色微偏暗的直径约4~5mm的菌落,琼脂底部与培养皿接触的面上有浅色较浅的白色直径约3mm的菌落,而琼脂内的菌落 这篇充满人情味的散文 表达了一个极为明确的观念是什么? 有什么动物不生蛋又不是哺乳动物? 怎么用血球计数板和鉴别培养基鉴别大肠杆菌? 读了这篇充满人情味的文章,我最深的感受是 用实物来形容下300克大概有多重? 上弦月和下弦月 色光的合成,列举.如:红加绿合成黑…… 如何提高原材料利用率 俄罗斯航空专家开始在美国上空进行观察麦当劳与四十年“老伙伴”亨氏番茄酱分美国共和党参议员计划推迟叶伦的美联储美国广播公司高管就“杀光中国人”视频日借太平洋岛国会议插手南海朴槿惠为职棒比赛开球 露甜美微笑【组纽约华裔家庭五人被杀案疑犯被捕 为被女教师被调离因婆婆抗拆 评论吁查幕后中国海警编队10月28日在中国钓鱼岛安倍称不容中国“武力崛起” 外媒称中美医保网站高管被爆系奥巴马夫人同学 马尼拉市长将赴港道歉 评论称菲律宾一哈萨克斯坦时装周:黑白搭配永不过时美海军航母编队在中国南海训练演习奥巴马夫妇携女儿赴教堂做礼拜 一家服奥巴马医保网站问题频出 美卫生部长被法国前高官称经济危机下的恐慌导致排外约有40万杭州人的骨头不够硬叙问题特使将抵达叙利亚 筹备日内瓦国中国首支海军核潜艇部队 42年潜行百19岁坚强女孩爬行上大学:选择学医将2015年,ARM能否在服务器芯片市多重利好共振A股 盘面一现象藏玄机谁说新手都炸鸡?到底是谁让运营商不堪一击?Monolith电动滑板:秘密都隐藏去了以色列,我明白了为什么扎伯克每天如何与压力对话假如,炒股赚了钱......被仇恨喂养的理想,被读者成就的路遥明年,这些你想不到的手机技术可能都会技术分析43期:MacBook上的U周三股市三大猜想:反弹途中仍有震荡这才是大杀器?展望ResearchK12万买苹果表一年过时 这表根本意义华东O2O项目死亡全名单:九大门派的设计不错?Google发布全新日程管到底是谁让运营商不堪一击?苹果新Macbook处理器 Core彩电行业出大事了!十位专家集体对话“索尼官方:国行PlayStation注意了!A股明日或将放量冲高!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘