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

VB6在拖托盘中写入应用程序图标 1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False 2、菜单：工程-添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas3、在Module1中写下如下代码：OptionExplicitPublicConstMAX_TOOLTIPAsInteger=64PublicConstNIF_ICON=&H2PublicConstNIF_MESSAGE=&H1PublicConstNIF_TIP=&H4PublicConstNIM_ADD=&H0PublicConstNIM_DELETE=&H2PublicConstWM_MOUSEMOVE=&H200PublicConstWM_LBUTTONDOWN=&H201PublicConstWM_LBUTTONUP=&H202PublicConstWM_LBUTTONDBLCLK=&H203PublicConstWM_RBUTTONDOWN=&H204PublicConstWM_RBUTTONUP=&H205PublicConstWM_RBUTTONDBLCLK=&H206PublicConstSW_RESTORE=9PublicConstSW_HIDE=0PublicnfIconDataAsNOTIFYICONDATAPublicTypeNOTIFYICONDATAcbSizeAsLonghWndAsLonguIDAsLonguFlagsAsLonguCallbackMessageAsLonghIconAsLongszTipAsString*MAX_TOOLTIPEndTypePublicDeclareFunctionShowWindowLibuser32(ByValhWndAsLong,ByValnCmdShowAsLong)AsLongPublicDeclareFunctionShell_NotifyIconLibshell32.dllAliasShell_NotifyIconA(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong4、在Form1的Load事件中写下如下代码：PrivateSubForm_Load()以下把程序放入SystemTray=SystemTrayBeginWithnfIconData.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)EndWithCallShell_NotifyIcon(NIM_ADD,nfIconData)=SystemTrayEndMe.HideEndSub5、在Form1的QueryUnload事件中写入如下代码：PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)CallShell_NotifyIcon(NIM_DELETE,nfIconData)EndSub6、在Form1的MouseMove事件中写下如下代码：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimlMsgAsSinglelMsg=X/Screen.TwipsPerPixelXSelectCaselMsgCaseWM_LBUTTONUPMsgBox请用鼠标右键点击图标!,vbInformation,实时播音专家单击左键，显示窗体ShowWindowMe.hWnd,SW_RESTORE下面两句的目的是把窗口显示在窗口最顶层Me.ShowMe.SetFocusCaseWM_RBUTTONUPPopupMenuMenuTray如果是在系统Tray图标上点右键，则弹出菜单MenuTrayCaseWM_MOUSEMOVECaseWM_LBUTTONDOWNCaseWM_LBUTTONDBLCLKCaseWM_RBUTTONDOWNCaseWM_RBUT