VB实现窗口最小化小任务栏.docx

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

第一篇：VB实现窗口最小化小任务栏要实现窗口最小化必须满足以下条件:1:按下最小化按钮,窗体不可见2:最小化后,最小化窗体的图标必须出现在任务栏的通知区域中3:当双击通知区域中的图标时,窗体又显示出来,同时通知区域中的图标消失.要满足上面的条件:1:首先屏蔽窗体中系统自带的最小化图标,即Form.MinButton=False2:声明1个API函数:PublicDeclareFunctionShell_NotifyIconLib“shell32.dll”Alias“Shell_NotifyIconA”(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong注意:上面这个API函数在XP中没有别名,将别名去掉后为: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个Command,它的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:编写Command的单击事件:PrivateSubCommand1_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,XAsSingle,YAsSingle)DimmsgAsLongmsg=X/15Ifmsg=WM_LBUTTONDBLCLKThenMe.ShowShell_NotifyIconNIM_DELETE,nidEndIfEndSub按F5启动,单击Command,看看通知区域中是不是多了个窗体的图标?双击该图标,窗体又显示出来了!第二篇：关闭win7任务栏小窗口和提示Win7开了一些窗口时，在任务栏上就会有小窗口，而将鼠标放在上面的时候，与Xp不同的是，会出现小的提示窗口，而且会是很多个，形成了一排，如果想要关闭，怎么办呢？1.首先如果想要将任务栏提示的窗口变成文字，只要在计算机-属性-高级系统设置-高级-性能-设置；里面有个启用桌面组合，去掉勾就可以了。2.这样的化