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

本源代码是一款完整的VB托盘气泡提示模块的源代码，气泡提示在Winodws编程应用中非常普遍，可使你的程序增加人性化体验，同时美化你的程序窗体，这个气泡提示控件，用起来很方便，希望广大VB程序员喜欢。 ‘模块 Option Explicit Public Declare Function Shell_NotifyIcon Lib shell32.dll Alias Shell_NotifyIconA ByVal dwMessage As Long, lpData As NOTIFYICONDATA As Long Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeout As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type Public Const NOTIFYICON_VERSION 3 Public Const NOTIFYICON_OLDVERSION 0 Public Const NIM_ADD H0 Public Const NIM_MODIFY H1 Public Const NIM_DELETE H2 Public Const NIM_SETFOCUS H3 Public Const NIM_SETVERSION H4 Public Const NIF_MESSAGE H1 Public Const NIF_ICON H2 Public Const NIF_TIP H4 Public Const NIF_STATE H8 Public Const NIF_INFO H10 Public Const NIS_HIDDEN H1 Public Const NIS_SHAREDICON H2 Public Const NIIF_NONE H0 Public Const NIIF_WARNING H2 Public Const NIIF_ERROR H3 Public Const NIIF_INFO H1 Public Const NIIF_GUID H4 Public myData As NOTIFYICONDATA Public Declare Function SetWindowLong Lib user32 Alias SetWindowLongA _ ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long As Long Public Declare Function CallWindowProc Lib user32 Alias CallWindowProcA _ ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long As Long Public Declare Function GetWindowLong Lib user32 Alias GetWindowLongA ByVal hWnd As Long, ByVal nIndex As Long As Long Public Const TRAY_CALLBACK H400 + 1001 Public Const GWL_WNDPROC -4 Public Const WM_MOUSEMOVE H200 Public Const WM_LBUTTONDOWN H201 Public Const WM_LBUTTONUP H202 Public Const WM_LBUTTONDBLCLK H203 Public Const WM_RBUTTONDOWN H204 Public Const WM_RBUTTONUP H205 Public Const WM_RBUTTONDBLCLK H206 Public Enum WIN_STATUS STA_MIN STA_NORMAL End Enum Public glWinRet As Long Public Org