VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能做到,我们也可以做到。
发表评论(0)作者:, 平台:, 阅读:12736, 日期:2000-03-12
如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能做到,我们也可以做到。


只要我们能截获这两个事件发送给窗体的消息,然后换成我们自定义的过程,问题就解决了。首先,用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


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