VB实现窗口最小化到任务栏

-.z.要实现窗口最小化必须满足以下条件:1:按下最小化按钮,窗体不可见2:最小化后,最小化窗体的图标必须出现在任务栏的通知区域中3:当双击通知区域中的图标时,窗体又显示出来,同时通知区域中的图标消失.要满足上面的条件:1:首先屏蔽窗体中系统自带的最小化图标,即Form.MinButton=False2:声明1个API函数:PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong注意:上面这个API函数在*P中没有别名,将别名去掉后为:PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong3:声明7个常数:PublicConstNIM_ADD=&H0PublicConstNIM_DELETE=&H2PublicConstNIF_ICON=&H2PublicConstNIF_MESSAGE=&H1PublicConstNIF_TIP=&H4PublicConstWM_MOUSEMOVE=&H200PublicConstWM_LBUTTONDBLCLK=&H2034:定义1个NOTIFYICONDATA类型PublicTypeNOTIFYICONDATAcbSizeasLonghWndasLonguIdasLonguFlagsasLonguCallBackMessageasLonghIconasLongszTipasStringEndType5:声明一个nid的类型PublicnidasNOTIFYICONDATA思路清晰后,开场编写代码1:在窗体中画1个mand,它的Caption属性为:"最小化"2:将窗体Form的MinButton的属性设为:"False"3:在窗体中添加1个模块,模块中的代码为:PublicDeclareFunctionShell_NotifyIconLib"shell32.dll"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLongPublicConstNIM_ADD=&H0PublicConstNIM_DELETE=&H2PublicConstNIF_ICON=&H2PublicConstNIF_MESSAGE=&H1PublicConstNIF_TIP=&H4PublicConstWM_MOUSEMOVE=&H200PublicConstWM_LBUTTONDBLCLK=&H203PublicTypeNOTIFYICONDATAcbSizeasLonghWndasLonguIdasLonguFlagsasLonguCallBackMessageasLonghIconasLongszTipasStringEndTypePublicnidasNOTIFYICONDATA4:编写mand的单击事件:PrivateSubmand1_Click()nid.cbSize=Len(nid)nid.uId=vbNullnid.hWnd=Me.hWndnid.uFlags=NIF_TIPOrNIF_MESSAGEOrNIF_ICONnid.uCallBackMessage=WM_MOUSEMOVEnid.hIcon=Me.Iconnid.szTip="窗体最小化"Shell_NotifyIconNIM_ADD,nidMe.HideEndSub5:编写窗体的MouseMove事件:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,*AsSingle,YAsSingle)DimmsgAsLongmsg=*/15Ifmsg=WM_LBUTTONDBLCLKThenMe.ShowShell_NotifyIconNIM_DELETE,nidEndIfEndSub按F5启动,单击mand,看看通知区域中是不是多了个窗体的图标"双击该图标,窗体又显示出来了!如何做到当我们单击窗口的最小化按钮时，窗口先最小化到任务栏成为按钮，然后消失，图标显示到通知栏呢？大家熟悉的Fo*Mail能做到，我们也可以做到。只要我们能截获最小化这个事件发送给窗口的消息，然后换成我们自定义的过程，问题就解决了。大家仔细想一想，当按下最小化按纽时会引发什么事件？最小化时窗口大小会发生变化会引发Form1.Resize事件，我们只要在Form1.Resize事件里用Form1.Visible=False使窗口消失，然后将窗口图标显示到通知栏即可到达我们想要的效果。怎样判断发生Resize事件时窗口是最小化状态呢？VB里没有现成的做法，我们可以用非富的API函数。API函数库里有一个函数IsIconic〔ByValhwndAsLong〕，它就是专门判断窗口是否已最小化的。这样当Form产生Resize事件时，用IsIconic函数判断一下窗口是否为最小化状态，就可知道是否用户按了最小化按钮。最关键的一步就是将图标显示在通知栏里，VB里没有现成的做法，我们还得用API函数。API函数库里有一个函数Shell_NotifyIcon(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)，是专门操作〔包括添加、修改、删除〕通知栏里图标的。点一下通知栏图标，会出现一些诸如"退出"、"显示窗口"的弹出菜单，怎样实现弹出菜单呢？这个很容易实现，因为点击图标会触发图标所在窗口的MouseDown事件，我们把弹出菜单触发过程写入Form1_MouseDown事件即可。具体例程如下：第一步、为了增强程序的可移植性，我们新建一个模块，取名为：NoticeIcon，在此模块中定义一些常量、自定义类型、所需的API函数说明及操作通知栏图标的三个自定义函数〔添加、修改、删除〕，模块NoticeIcon具体代码如下所示：PublicConstDefaultIconInde*=1'图标缺省索引

PublicConstWM_LBUTTONDOWN=&H201'按鼠标左键

PublicConstWM_RBUTTONDOWN=&H204'按鼠标右键

PublicConstNIM_ADD=0'添加图标

PublicConstNIM_MODIFY=1'修改图标

PublicConstNIM_DELETE=2'删除图标

PublicConstNIF_MESSAGE=1'message有效

PublicConstNIF_ICON=2'图标操作〔添加、修改、删除〕有效

PublicConstNIF_TIP=4'ToolTip(提示〕有效

'API函数声明

'图标操作

DeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong

'判断窗口是否最小化

DeclareFunctionIsIconicLib"user32"(ByValhwndAsLong)AsLong

'

'设置窗口位置和状态〔position〕的功能

DeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByVal*AsLong,ByValyAsLong,ByValc*AsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong

'定义类型

'通知栏图标状态

PublicTypeNOTIFYICONDATA

cbSizeAsLong

hwndAsLong

uIDAsLong

uFlagsAsLong

uCallbackMessageAsLong

hIconAsLong

szTipAsString*64

EndType

'函数定义

'添加图标至通知栏

PublicFunctionIcon_Add(iHwndAsLong,sTipsAsString,hIconAsLong,IconIDAsLong)AsLong

'参数说明：iHwnd：窗口句柄，sTips：当鼠标移到通知栏图标上时显示的提示内容

'hIcon：图标句柄，IconID：图标Id号

DimIconVaAsNOTIFYICONDATA

WithIconVa

.hwnd=iHwnd

.szTip=sTips+Chr$(0)

.hIcon=hIcon

.uID=IconID

.uCallbackMessage=WM_LBUTTONDOWN

.cbSize=Len(IconVa)

.uFlags=NIF_MESSAGEOrNIF_ICONOrNIF_TIP

Icon_Add=Shell_NotifyIcon(NIM_ADD,IconVa)

EndWith

EndFunction

'删除通知栏图标(参数说明同Icon_Add)

FunctionIcon_Del(iHwndAsLong,lInde*AsLong)AsLong

DimIconVaAsNOTIFYICONDATA

DimLAsLong

WithIconVa

.hwnd=iHwnd

.uID=lInde*

.cbSize=Len(IconVa)

EndWith

Icon_Del=Shell_NotifyIcon(NIM_DELETE,IconVa)

EndFunction

'修改通知栏图标(参数说明同Icon_Add)

PublicFunctionIcon_Modify(iHwndAsLong,sTipsAsString,hIconAsLong,IconIDAsLong)AsLong

DimIconVaAsNOTIFYICONDATA

WithIconVa

.hwnd=iHwnd

.szTip=sTips+Chr$(0)

.hIcon=hIcon

.uID=IconID

.uCallbackMessage=WM_LBUTTONDOWN

.cbSize=Len(IconVa)

.uFlags=NIF_MESSAGEOrNIF_ICONOrNIF_TIP

Icon_Modify=Shell_NotifyIcon(NIM_MODIFY,IconVa)

EndWith

EndFunction第二步：新建一窗口，取名为：Form1：1、设置属性如下：.Name=Form1

.Caption="通知栏图标测试"

.Icon=〔Icon〕，选择一个漂亮的图标

其它默认即可2、设置窗口全局变量，并设置初始值'用于标识窗口是否已经按过最小化按纽

DimMinFlagAsBoolean

PrivateSubForm1_Load()

MinFlag=False

EndSub3、窗口最小化时产生Resize事件，设置Form1.Resize事件，判断窗口是否最小化PrivateSubForm1_Resize()

'判断窗口是否最小化状态，并且是按最小化按纽后第一次发生Resize事件

IfIsIconic(Me.hwnd)<>0AndMinFlag=FalseThen

MinFlag=True

IcCardMain.Visible=False'隐藏窗口

'将窗口图标参加通知栏

CallIcon_Add(Me.hwnd,Me.Caption,IcCardMain.Icon,0)

EndIf

EndSub4、如下图用菜单设计器建一个弹出菜单，取名为main，main内有一个菜单数组：菜单一：m_Menu(0)标题：显示窗口菜单二：m_Menu(1)〕标题：退出菜单事件：PrivateSubm_Menu_Click(Inde*AsInteger)

SelectCaseInde*

Case0:'当单击"显示窗口"菜单时

CallIcon_Del(Form1.hwnd,0)'删除通知栏图标

Form1.Show'调出窗口

Case