VB源代码-程序退至托盘执行及气泡提示.doc

《VB源代码-程序退至托盘执行及气泡提示.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、本源代码是一款完整的VB托盘气泡提示模块的源代码，气泡提示在Winodws编程应用中非常普遍，可使你的程序增加人性化体验，同时美化你的程序窗体，这个气泡提示控件，用起来很方便，希望广大VB程序员喜欢。‘模块OptionExplicitPublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLongPublicTypeNOTIFYICONDATAcb

2、SizeAsLonghWndAsLonguIDAsLonguFlagsAsLonguCallbackMessageAsLonghIconAsLongszTipAsString*128dwStateAsLongdwStateMaskAsLongszInfoAsString*256uTimeoutAsLongszInfoTitleAsString*64dwInfoFlagsAsLongEndTypePublicConstNOTIFYICON_VERSION=3PublicConstNOTIFYICON_OLDVERSION=0PublicC

3、onstNIM_ADD=&H0PublicConstNIM_MODIFY=&H1PublicConstNIM_DELETE=&H2PublicConstNIM_SETFOCUS=&H3PublicConstNIM_SETVERSION=&H4PublicConstNIF_MESSAGE=&H1PublicConstNIF_ICON=&H2PublicConstNIF_TIP=&H4PublicConstNIF_STATE=&H8PublicConstNIF_INFO=&H10PublicConstNIS_HIDDEN=&H1Public

4、ConstNIS_SHAREDICON=&H2PublicConstNIIF_NONE=&H0PublicConstNIIF_WARNING=&H2PublicConstNIIF_ERROR=&H3PublicConstNIIF_INFO=&H1PublicConstNIIF_GUID=&H4PublicmyDataAsNOTIFYICONDATAPublicDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"_(ByValhWndAsLong,ByValnIndexA

5、sLong,ByValdwNewLongAsLong)AsLongPublicDeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"_(ByVallpPrevWndFuncAsLong,ByValhWndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPublicDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByV

6、alhWndAsLong,ByValnIndexAsLong)AsLongPublicConstTRAY_CALLBACK=(&H400+1001&)PublicConstGWL_WNDPROC=-4PublicConstWM_MOUSEMOVE=&H200PublicConstWM_LBUTTONDOWN=&H201PublicConstWM_LBUTTONUP=&H202PublicConstWM_LBUTTONDBLCLK=&H203PublicConstWM_RBUTTONDOWN=&H204PublicConstWM_RBUT

7、TONUP=&H205PublicConstWM_RBUTTONDBLCLK=&H206PublicEnumWIN_STATUSSTA_MINSTA_NORMALEndEnumPublicglWinRetAsLongPublicOrgWinRetAsLongPublicStatusAsWIN_STATUSPublicMyFormAsFormPublicFunctionCallbackMsgs(ByValwHwndAsLong,ByValwMsgAsLong,ByValwp_idAsLong,ByVallp_idAsLong)AsLong

8、OnErrorResumeNextIfwMsg=TRAY_CALLBACKThenWithMyFormSelectCaseCLng(lp_id)CaseWM_RBUTTONUP.PopupMenu.mnuT