選項顯式
Const MAX_TOOLTIP為整數= 64
常量NIF圖標= & amp氘
常數NIF _消息= & ampH1
常數NIF _提示= & ampH4
Const NIM _ ADD = & amp零假設
Const NIM _ DELETE = & amp氘
Const WM _ MOUSEMOVE = & ampH200
Const WM _ LBUTTONDOWN = & ampH201
Const WM _ LBUTTONUP = & ampH202
Const WM _ LBUTTONDBLCLK = & ampH203
Const WM _ RBUTTONDOWN = & ampH204
Const WM _ RBUTTONUP = & ampH205
Const WM _ RBUTTONDBLCLK = & ampH206
Const SW_RESTORE = 9
Const SW_HIDE = 0
私有類型NOTIFYICONDATA
cbSize壹樣長
hwnd壹樣長
uID壹樣長
uFlags壹樣長
uCallbackMessage壹樣長
hIcon壹樣長
szTip As String * MAX_TOOLTIP
結束類型
私有聲明函數show window Lib“user 32”(ByVal hwnd為Long，ByVal nCmdShow為Long)為Long
私有聲明函數Shell _ NotifyIcon Lib“Shell 32 . dll”別名“Shell _ NotifyIconA”(ByVal dw message為Long，lpData為NOTIFYICONDATA)為Long
私有nfIconData作為NOTIFYICONDATA
整數形式的公共標誌
private Sub MDIForm _ MouseMove(Button為整數，Shift為整數，x為Single，y為Single)
這是生成標誌的代碼，可以放入所需的塊中。
nficondata . hwnd = mdiform 1 . hwnd
nfIconData.uID = MDIForm1。圖標
nfIconData.uFlags = NIF圖標或NIF消息或NIF提示
nficondata . ucallbackmessage = WM _ MOUSEMOVE
nficondata . hicon = MD iform 1。圖標。手柄
nficondata . SZ tip = " time tip " & amp；vbNullChar
nfIconData . cbsize = Len(nfIconData)
調用Shell_NotifyIcon(NIM_ADD，nfIconData)
這是取消的標誌。
調用Shell_NotifyIcon(NIM_DELETE，nfIconData)
這是出現點擊符號的菜單。
private Sub MDIForm _ MouseMove(Button為整數，Shift為整數，x為Single，y為Single)
如果MDIForm1。可見=假
將lMsg調成單個
lMsg = x /屏幕。TwipsPerPixelX
Iflmsg = WM _ rbuttonup或lmsg = WM _ lbuttonup then mdiform 1。彈出菜單mnumain '這是菜單的名稱。
如果…就會結束
末端接頭
這裏的窗口是MDIForm1，可以更改。
不要忘記在widget \ reference中勾選windows腳本主機和windows腳本控件。
希望對妳有幫助。