vb实现老板键功能[图](3)

　　bas_Tray.bas

'---------------------------------------------------------------------------------------
' Module　　　　: modTray
' DateTime　　: 12/05/2005 21:38
' Author　　　　: Carlos Alberto S.
' Purpose　　 : System tray module with high resolution icon (Windows XP), balloon (with
'　　　　　　　　　　　　　　 or without sound) and mouse event support for icon and balloon.
'---------------------------------------------------------------------------------------
Option Explicit
'使用高分辨率图标所用的API
Declare Function LoadImage Lib "user32" Alias "LoadImageA" () Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Const LR_LOADFROMFILE = &H10
Private Const LR_LOADMAP3DCOLORS = &H1000
Private Const IMAGE_ICON = 1
'系统托盘
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" () Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4
Private Const NIM_VERSION = &H5
Private Const WM_USER As Long = &H400
Const NIN_BALLOONSHOW = () Const NIN_BALLOONSHOW = (WM_USER + 2)
Const NIN_BALLOONHIDE = () Const NIN_BALLOONHIDE = (WM_USER + 3)
Const NIN_BALLOONTIMEOUT = () Const NIN_BALLOONTIMEOUT = (WM_USER + 4)
Const NIN_BALLOONUSERCLICK = () Const NIN_BALLOONUSERCLICK = (WM_USER + 5)
Private Const NOTIFYICON_VERSION = 3
Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
Private Const WM_NOTIFY As Long = &H4E
Private Const WM_COMMAND As Long = &H111
Private Const WM_CLOSE As Long = &H10
Private Const WM_MOUSEMOVE As Long = &H200
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
Private Const WM_LBUTTONDBLCLK As Long = &H203
Private Const WM_MBUTTONDOWN As Long = &H207
Private Const WM_MBUTTONUP As Long = &H208
Private Const WM_MBUTTONDBLCLK As Long = &H209
Private Const WM_RBUTTONDOWN As Long = &H204
Private Const WM_RBUTTONUP As Long = &H205
Private Const WM_RBUTTONDBLCLK As Long = &H206
Public Enum bFlag
　　　　NIIF_NONE = &H0
　　　　NIIF_INFO = &H1
　　　　NIIF_WARNING = &H2
　　　　NIIF_ERROR = &H3
　　　　NIIF_GUID = &H5
　　　　NIIF_ICON_MASK = &HF
　　　　NIIF_NOSOUND = &H10 '关闭提示音标志