Attribute VB_Name = "Module1"
Public Const WM_MOUSEMOVE = &H200 '在圖標(biāo)上移動鼠標(biāo)
Public Const WM_LBUTTONDOWN = &H201 '鼠標(biāo)左鍵按下
Public Const WM_LBUTTONUP = &H202 '鼠標(biāo)左鍵釋放
Public Const WM_LBUTTONDBLCLK = &H203 '雙擊鼠標(biāo)左鍵
Public Const WM_RBUTTONDOWN = &H204 '鼠標(biāo)右鍵按下
Public Const WM_RBUTTONUP = &H205 '鼠標(biāo)右鍵釋放
Public Const WM_RBUTTONDBLCLK = &H206 '雙擊鼠標(biāo)右鍵
Public Const WM_SETHOTKEY = &H32 '響應(yīng)您定義的熱鍵
'API函數(shù)聲明
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Long

'自定義一個調(diào)用API Shell_NotifyIcon要用到的類 型"NOTIFYICONDATA"
Public Type NOTIFYICONDATA
cdSize As Long 'NOTIFYICONDATA類型的大小
hwnd As Long '你的應(yīng)用程序窗體的名柄
uId As Long '應(yīng)用程序圖標(biāo)資源的ID號
uFlags As Long '使那些參數(shù)有效它是以下枚舉類型中的
'NIF_MESSAGE、NIF_ICON、NIF_TIP三組的組合
uCallbackMessage As Long '鼠標(biāo)移動時把此消息發(fā)給該圖標(biāo)的窗體
hIcon As Long '圖標(biāo)名柄
szTip As String * 64 '當(dāng)鼠標(biāo)在圖標(biāo)上時顯示的Tip文本
End Type

'這是一個枚舉類型它告訴API Shell_NotifyIcon去做什么操作

Public Const NIM_ADD = &H40 '在“金碟”中加一圖標(biāo)
Public Const NIM_MODIFY = &H1 '修改“金碟”中的圖標(biāo)
Public Const NIM_DELETE = &H2 '刪除“金碟”中的圖標(biāo)
Public Const NIF_MESSAGE = &H1 '使類型"NOTIFYICONDATA"中的uCallbackMessage有效
Public Const NIF_ICON = &H2 '使類型"NOTIFYICONDATA"中的hIcon有效
Public Const NIF_TIP = &H4 '使類型"NOTIFYICONDATA"中的szTip有效
'WM_MOUSEMOVE = &H200 '使鼠標(biāo)移動消息有效

'定義一個"NOTIFYICONDATA"類型的變量