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

End Enum
Private 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
　　　　uTimeoutAndVersion As Long
　　　　szInfoTitle As String * 64
　　　　dwInfoFlags As Long
End Type
'鼠标事件
Public Enum TrayRetunEventEnum
　　　　MouseMove = &H200
　　　　LeftUp = &H202
　　　　LeftDown = &H201
　　　　LeftDbClick = &H203
　　　　RightUp = &H205
　　　　RightDown = &H204
　　　　RightDbClick = &H206
　　　　MiddleUp = &H208
　　　　MiddleDown = &H207
　　　　MiddleDbClick = &H209
　　　　BalloonClick = (WM_USER + 5)
End Enum
Public ni As NOTIFYICONDATA
Sub TrayAddIcon() Sub TrayAddIcon(ByVal MyForm As Form, ByVal MyIcon As String, ByVal ToolTip As String, Optional ByVal bFlag As bFlag)
　　　　With ni
　　　　　　　　.cbSize = Len(ni)
　　　　　　　　.hwnd = MyForm.hwnd
　　　　　　　　.uID = vbNull
　　　　　　　　.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
　　　　　　　　.uCallbackMessage = WM_MOUSEMOVE
　　　　　　　　.hIcon = LoadImage(App.hInstance, MyIcon, IMAGE_ICON, 16, 16, LR_LOADFROMFILE Or LR_LOADMAP3DCOLORS)
　　　　　　　　.szTip = ToolTip & vbNullChar
　　　　End With
　　　　
　　　　Call Shell_NotifyIcon(NIM_ADD, ni)
End Sub
Sub TrayRemoveIcon() Sub TrayRemoveIcon()
　　　　Shell_NotifyIcon NIM_DELETE, ni
　　　　
End Sub
Sub TrayBalloon() Sub TrayBalloon(ByVal MyForm As Form, ByVal sBaloonText As String, sBallonTitle As String, Optional ByVal bFlag As bFlag)
　　　　With ni
　　　　　　　　.cbSize = Len(ni)
　　　　　　　　.hwnd = MyForm.hwnd
　　　　　　　　.uID = vbNull
　　　　　　　　.uFlags = NIF_INFO
　　　　　　　　.dwInfoFlags = bFlag
　　　　　　　　.szInfoTitle = sBallonTitle & vbNullChar
　　　　　　　　.szInfo = sBaloonText & vbNullChar
　　　　End With
　　　　Shell_NotifyIcon NIM_MODIFY, ni
End Sub
Sub TrayTip() Sub TrayTip(ByVal MyForm As Form, ByVal sTipText As String)
　　　　With ni
　　　　　　　　.cbSize = Len(ni)
　　　　　　　　.hwnd = MyForm.hwnd
　　　　　　　　.uID = vbNull
　　　　　　　　.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
　　　　　　　　.szTip = sTipText & vbNullChar
　　　　End With
　　　　Shell_NotifyIcon NIM_MODIFY, ni
End Sub