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