VB6在拖托盘中写入应用程序图标.docVIP

VB6在拖托盘中写入应用程序图标 1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False 　　2、菜单：工程--添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas 　　3、在Module1中写下如下代码： 　　 　　OptionExplicit 　　 　　PublicConstMAX_TOOLTIPAsInteger=64 　　PublicConstNIF_ICON=H2 　　PublicConstNIF_MESSAGE=H1 　　PublicConstNIF_TIP=H4 　　PublicConstNIM_ADD=H0 　　PublicConstNIM_DELETE=H2 　　PublicConstWM_MOUSEMOVE=H200 　　PublicConstWM_LBUTTONDOWN=H201 　　PublicConstWM_LBUTTONUP=H202 　　PublicConstWM_LBUTTONDBLCLK=H203 　　PublicConstWM_RBUTTONDOWN=H204 　　PublicConstWM_RBUTTONUP=H205 　　PublicConstWM_RBUTTONDBLCLK=H206 　　 　　PublicConstSW_RESTORE=9 　　PublicConstSW_HIDE=0 　　 　　PublicnfIconDataAsNOTIFYICONDATA 　　 　　 　　PublicTypeNOTIFYICONDATA 　　　cbSizeAsLong 　　　hWndAsLong 　　　uIDAsLong 　　　uFlagsAsLong 　　　uCallbackMessageAsLong 　　　hIconAsLong 　　　szTipAsString*MAX_TOOLTIP 　　EndType 　　 　　PublicDeclareFunctionShowWindowLibuser32(ByValhWndAsLong,ByValnCmdShowAsLong)AsLong 　　PublicDeclareFunctionShell_NotifyIconLibshell32.dllAliasShell_NotifyIconA(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong 　　　4、在Form1的Load事件中写下如下代码： 　　 　　PrivateSubForm_Load() 　　 　　　以下把程序放入SystemTray====================================SystemTrayBegin 　　　WithnfIconData 　　　　.hWnd=Me.hWnd 　　　　.uID=Me.Icon 　　　　.uFlags=NIF_ICONOrNIF_MESSAGEOrNIF_TIP 　　　　.uCallbackMessage=WM_MOUSEMOVE 　　　　.hIcon=Me.Icon.Handle 　　　　定义鼠标移动到托盘上时显示的Tip 　　　　.szTip=App.Title (版本App.Major.App.Minor.App.Revision)vbNullChar 　　　　.cbSize=Len(nfIconData) 　　　EndWith 　　　CallShell_NotifyIcon(NIM_ADD,nfIconData) 　　　=============================================================SystemTrayEnd 　　　Me.Hide 　　EndSub 　　5、在Form1的QueryUnload事件中写入如下代码： 　　 　　PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger) 　　CallShell_NotifyIcon(NIM_DELETE,nfIconData) 　　EndSub 　　6、在Form1的MouseMove事件中写下如下代码： 　　 　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) 　　　DimlMsgAsSingle 　　　lMsg=X/Screen.TwipsPerPixelX 　　　SelectCaselMsg 　　　　CaseWM_LBUTTONUP 　　　　　MsgBox请用鼠标右键点击图标!,vbInformation,实时播音专家