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

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

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

Android编程之实现GPS定位 android编程实现仿iphone的tab效果 系统变量 - DOS BAT批处理编程入门教程(三) Android编程获取手机的IMEI Android开发中14个很有用的编程技巧 Android蓝牙栈bluez使用方法 Android模拟GPS数据生成kml和nmea文件 Android签名用keytool和jarsigner制作apk文件 谈谈Android中文短信的实现 Android中文短信开发技巧 Android来电号码获取代码 Android AIDL初学者必看内容 Android与XML解析 Android天气预报程序开发实例与定位信息 Android中文短信开发终结篇 Android权限列表permission说明 Android输入法开发实例解析 Android示例程序Snake贪食蛇源代码分析 Android平台View的按键事件KeyDown用法 Android加速感应器实现屏幕自动旋转-Sensor属性 Android视频播放类VideoView解析 Javascript如何检测浏览器关闭了小叉叉 文件操作 - DOS BAT批处理编程入门教程(六) 获得手机中的电话簿 Android开发学习小心得 VC中用CPPToolTip轻松实现工具提示 Android中MediaRecorder类实现视频录制 WEB开发中将数据库记录转换到EXCEL表格文件xls供下载 F#是什么语言 函数式编程语言F#:基于CLR的另一个头等编程语言 编程获取Google PR值方法集锦 如何去掉ACTIVE MOIVE控件下面显示的几个键和进度条 c源程序。 >>>>高分求解!!!我在一个对话框中插入一个active report run time design,但程序运行时却不显示,在vb中却可以,如何解决这个问题?????? 关于sql server的安装 哪里有下载cc编译器的? 关于导出数据窗口数据的问题,明白人请进! delphi可不可以用于自动控制方面的开发呢 如何使对话框程序执行就让整个屏幕背景变黑色?? 想了解有关程序考试的一些情况? 不同系统就不可以直接电缆直接吗? 怎样使用PQMAGIC对硬盘进行调整分区 memory fault--core dumped的问题 有谁知道怎么解win98的开机密码? 用 procedure 与 trigger 、database link 能完成吗? flowerofwind,rjcludy()请回答 COM中的一个怪问题:我将::CoUninitialize();去掉后程序不出错,添上出现非法操作,是啥问题??? 请问?????? 如何在程序中播放rm格式的文件??? edit怎么用啊? JB6盘中不含 Borland Enterprise Server AppServer5.0,各位快载一个上去吧! 如何改变显示的分辨率? 那里有c#编译器免费下载?谢谢 如何在vc中播放rm格式的文件??? 那位大侠知道怎么创建并使用一个变量,每次只让一个进程访问???给个例子吧,大大大 大 delphi中怎么编写中断,获取外部设备传来的信息?急救!! 数值模拟与计算仿真,高手请帮忙! 请问:dos下图形放大算法或思路?还有.........(高手请进) 求教!!!!SOS!! --请问如何将一个BMP图形文件转成JPG图形文件,高分请教师--- 高分给出,win98的怪问题! 打印统计问题 请教 : html的javascript 中报错:document.Form1.client_name.value不是对象 VC++里面如何从文本文件中一行一行读取文件? 请问,如何用mail函数批量发送邮件.多谢. 各位请教一下,Jsp 的服务resin在win2000下是怎样配置的 各位兄弟: 有谁知道 侯杰 的 <多线程程序设计> 什么时候才能买到??? 哪里有VFP3.0下载? system.ini和win.ini的作用 怎样生成安装包,多谢! 如何在两个不同的应用程序之间拖动文本字符 请问,PTSTR 和 PSTR 有什么不同? 反对上海电信变相涨价的行为。我能不能告中国电信“违约”和“欺诈”呢。 求救!误删Office2000注册表! 生成.exe出错 在Excel中,如何让某些行不能滚动? 在--成都--程序员能拿多少--¥--???? 换了17寸纯平显示器,开心,放分. 错装PB7,不能无create datawindows的图标,全是XX,为什么? 请问怎样遍历一个页面中服务器端的所有对象? 能否跟我说说——自动控制方面——与delphi编程的基本常识?我一直想了解,但不知道我们编的程序如何去跟那些硬件搞在一起而且控制硬件呢? 程序出错 发现一个不错的网站!www.ffboy.com 过两点A、B能画几条直线?平面上有A、B、C三点,过其中任意两点画直线,能画几条? 已知三角形ABC的两边AC和BC分别交平面a于点MN,设直线AB与平面a交与点O,则点O与直线MN的位置关系如何急~~~~~~~~~~~~~ 已知长度为L的直导线通有电流I时,在方向垂直导线的磁场中受到的安培力为F=BIL,其中B为磁场的磁感应强度,是由此公式导出单个运动电荷在磁场中所受的洛伦兹力f的表达式 y=(lnx)^x·x^(lnx)的导数 在正方体ABCD-A'B'C'D'中,直线A'C交平面ABC'D'于点M,试作出点M的位置.说明理由,最好给图 为何:当导线方向与磁场方向一致时,电流不受安培力? 经过平面内A,B,C三点中的任意两点只能画一条直线,其中正确的个数为( ) A.1 B.2 C.3 D.4 用对数求导法求下列导数函数.y=(x/(1+x)) 洛伦兹力与安培力的区别洛伦兹力是微观的,这我知道.但为什么洛伦兹力不做功,安培力却做功呢?还有,两者的考点在哪里? 在同一平面内有A,B,C,D,E五点,任意三点不在同一条直线上,能画()直线 磁场中静止的通电导线受安培力吗 有关洛伦兹力和安培力的描述,正确的是() A.通电直导线在匀强磁场中不一定受到安培力的作用 B.电有关洛伦兹力和安培力的描述,正确的是()A.通电直导线在匀强磁场中不一定受到安培力 平面上三条直线相交,最多有几个交点?最少有几个交点?画图说明...1.平面上三条直线相交,最多有几个交点?最少有几个交点?画图说明.2.平面内四条直线相交,最多有几个交点?五条直线呢?n条直 通电直导线在磁场中受到的安培力方向是否与磁场方向平行? 洛伦兹力与安培力的一些问题?带点粒子在磁场中受到洛伦兹力,带电导线在磁场中受到安培力.可以这样说,洛伦兹力是安培力的微观本质原因,而安培力是洛伦兹力的宏观表现.有这样一个关系 同一平面内的五条直线最多有几个交点,请画图说明要图喔! 已知三角形ABC的三个顶点A,B,C及平面内一点P,若PA+PB+PC=AB,则点P与三角形ABC的位置关系是什么 安培力和洛伦兹力,哪个是磁场力? 平面上有5条直线两两相交,可能有多少个交点?请画图表示出来. 洛伦兹力对运动电荷一定不做功,安培力对通电导线一定不做功, 原子是怎样构成分子的(例如水分子)要写出过程,就是他构成的过程.一楼和2楼的怎么说得是完全不同吖,水是由水分子还是离子组成吖。这个才是关键。老师说是分子,但它又有化合价, (1)在一个平面上画5条直线,最多有几个交点?请画图说明.(2)在一个平面上画5条直线,可以有4个交点吗?如果可以,请画出所有图形;如果不可以,请说明理由. 为什么洛仑兹利不对运动电子做功,但安培力作为洛仑兹力的宏观表现却对导线做功 在轨道上的导体棒在磁场的作用下什么时候安培力为0 除了静止那种情况以外 ⑴平面上三条直线相交,最多有几个交点?最少有几个交点?请画图说明.⑵平面内四条直线相交,最多有几个交点?五条直线呢?n条直线呢?⑶平面内有n个点,其中任意三个点都不在同一条直线上,那 带电粒子在匀强磁场中运动一定受到洛伦兹力作用对吗 通电导线在匀强磁场中运动一定受到安培力作用对吗RT 从原子结构上解释水分子的构成 有一支刻度不标准的温度计,将她插入冰水混合物中,读数为15摄氏度,把他插如1标准大气压下的开水中,读数为95摄氏度,如果将它插入某液体中,读书为35摄氏度,则此液体的实际提问是多少?写出 有学过大学物理的么,问两个问题:关于1、匀速圆周运动中的做功 2、磁场中安培力和洛伦兹力的做功问题高二学弟躬身拜上.-----------安徽太和中学高二12班学号200912061、以理想状态下的匀速 就是构成水分子的氢,氧原子重新组成()和()的过程 用对数求导法求下列函数的导数 怎么使用对数求导法 我想请教怎么使用对数求导法啊 一个水分子是由几个水原子组成? 用对数求导法,求这个函数的导数 同一平面内的两条直线有哪几种位置关系?限30分钟 水分子是由什么构成的,离子还是原子氢氧根离子和一个氢离子还是氢原子和氧原子 在如图4×4的方格内画△ABC使他的顶点都在格点上,三条边长分别为1/5根号125,4,根号(3²+2²) 在同一个平面内,两条直线有哪几种位置关系? 导体棒斜着切割磁场,怎么计算导体棒两端电势差?用安培力F=BLV该怎么用? 一支不准确的温度计,放入冰水混合物中时.示数-0.7摄氏度;放入标准大气压下的沸水是示数102.3摄氏度那么这支温度计-6摄氏度时,实际温度是____摄氏度.(精确到0.01摄氏度) 是初一的科学试卷中 空间内直线与平面的位置关系有几种 对磁场切割磁场线运动的导体棒,电流、磁感应强度恒定不变,那么由左手定则得出安培力的方向,右手定则得出运动方向,由此可以得到,切割磁场运动的导体棒速度和力的方向一定相反,安培力 三个平面把空间分成几个部分?画图表示各种情况.(请画图,有加赏,)6,7,8.主要是8个平面,画不来……求画,不尽感激. 用对数求导数法则求下列函数的导数 通电导线所受的安培力方向,磁场方向,电流方向三者之间一定是相互垂直的.这话错哪了 y=(lnx)^x的导数 放置在磁场中的通电导线,一定受到安培力作用.这种说法对吗 在平面上的三条直线a、b、c有几种位置关系?并说明全说出来 y=lnx/(x^2+1)的导数,怎么求, 通电导线在磁场中受到安培力计算时忽略通电导体的磁场吗通电导线在磁场中受到安培力计算时导体本身也有磁场啊,这时忽略通电导体的磁场吗 一小段通电直导线在磁场中受到的安培力的方向一定垂直电流的方向么? y=lnx/x 的导数是多少 通电导线会不会受到自身产生的磁场的安培力作用?比如有两条导电滑轨,在上面横卧一根导体棒,在导轨一端通电,导体棒会不会在产生的磁场中受到安培力而运动? 在三角形ABC 中AB等于10 BC等于6,经过点C且与AB相切的动员与CB,CA分别相切与E,F求EF最小值额 在三角形ABC 中AB等于10 BC等于6,经过点C且与AB相切的动员与CB,CA分别相切与E,F求EF最小值 经过平面上的三点中的任意两点可以画直线( )A 3条 B 1条 C 1条或3条 D 以上都不对 在同一平面内有3条直线ABC,如果A⊥B,B⊥C,那么AC的位置关系是什么,为什么要说明理由 安培力的方向怎样确定?怎么判断磁场方向和电流方向?有没有具体画图判断安培力方向的题如题怎么确定磁力线方向 y=(lnx)^x/x^lnx的导数 求过程 对于同一平面内的直线abc,如果a与b平行,c与a相交,那么c与b的位置关系是相交还是平行? 在B=2T的匀强磁场中放一枚与磁场方向垂直长度为0.8的通电导线导线中的电流为5A.求导线受到安培力大小
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn