在代碼中添加左鍵單擊語句。
私有常量WM _ LBUTTONDBLCLK = & ampH203
增加了鼠標事件。
private Sub Form _ MouseMove(Button為整數，Shift為整數，X為Single，Y為Single)
將消息變長
msg = X / 15
如果msg = WM_LBUTTONDBLCLK，則
我。WindowState = 2
我。顯示
如果…就會結束
末端接頭
您可以將句子If msg = WM_LBUTTONDBLCLK中的“WM _ lbuttonblclk”更改為單擊open，或者左鍵單擊open將其更改為WM_LBUTTONUP，右鍵單擊將其更改為WM_RBUTTONUP。
復制我下面的代碼，雙擊狀態欄中的圖標將其最大化。
選項顯式
私有聲明函數GetMenu Lib " user 32 "(ByVal hWnd As Long)壹樣長
私有聲明函數get submenu Lib " user 32 "(ByVal hMenu為Long，ByVal nPos為Long)
私有聲明函數GetMenuItemID Lib " user 32 "(ByVal hMenu為Long，ByVal nPos為Long)
私有聲明函數SetMenuItemBitmaps Lib " user 32 "(ByVal hMenu為Long、ByVal nPosition為Long、ByVal wFlags為Long、ByVal hBitmapUnchecked為Long、ByVal hBitmapChecked為Long)
私有聲明函數Shell _ NotifyIcon Lib“Shell 32 . dll”別名“Shell _ NotifyIconA”(ByVal dw message為Long，lpData為NOTIFYICONDATA)為Long
private Const MAX _ TOOLTIP As Integer = 64
私人常數NIF圖標= & amp氘
私人常數NIF _消息= & ampH1
私人常數NIF _小費= & ampH4
私有常量NIM _ ADD = & amp零假設
私有常量NIM _ DELETE = & amp氘
私有常量WM _ MOUSEMOVE = & ampH200
私有常量WM _ LBUTTONUP = & ampH202
私有常量WM _ LBUTTONDBLCLK = & ampH203
私有常量WM _ RBUTTONUP = & ampH205
私有類型NOTIFYICONDATA
cbSize壹樣長
hWnd壹樣長
uId壹樣長
uFlags壹樣長
uCallBackMessage壹樣長
hIcon壹樣長
szTip As String * MAX_TOOLTIP
結束類型
私有常量MF _ bitmap = & ampH4 & amp；
私有nfIconData作為NOTIFYICONDATA
私有子系統_托盤()
Dim Mnu_Hwnd As Long
Dim Mnu_Id As Long
暗淡我壹樣長
nfIconData.hWnd = Me.hWnd
nfIconData.uId = Me。圖標
nfIconData.uFlags = NIF圖標或NIF消息或NIF提示
nficondata . ucallbackmessage = WM _ MOUSEMOVE
nfIconData.hIcon = Me。圖標。手柄
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
NfIconData.szTip = "刷流量" &；vbNullChar
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nfIconData . cbsize = Len(nfIconData)
調用Shell_NotifyIcon(NIM_ADD，nfIconData)
末端接頭
私有子窗體_Unload(取消為整數)
調用Shell_NotifyIcon(NIM_DELETE，nfIconData)
末端接頭
私有子窗體_Load()
系統托盤
與我
。可見=假
以…結尾
末端接頭
私有Sub muen1_Click()
系統托盤
與我
。可見=假
以…結尾
末端接頭
private Sub Form _ MouseMove(Button為整數，Shift為整數，X為Single，Y為Single)
將消息變長
msg = X / 15
如果msg = WM_LBUTTONDBLCLK，則
我。WindowState = 2
我。顯示
如果…就會結束
末端接頭