如何使用系统托盘区图标的弹出菜单？急！

Question

在系统托盘区添加图标后，如何实现弹出菜单的功能：
鼠标左键或右键点击图标后弹出快捷菜单；双击后显示某个窗体。
谢谢给出示例代码！

Answer 1

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function CreatePopupMenu Lib "user32" () As Long
Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As LongType NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uid As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        sztip As String * 64
End Type
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIM_MODIFY = &H1
Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const NIF_TIP = &H4Const MF_GRAYED = &H1&
Const MF_STRING = &H0&
Const MF_SEPARATOR = &H800&
Const TPM_NONOTIFY = &H80&
Const TPM_RETURNCMD = &H100&Public bTraySet As Boolean
Dim lMenu As LongPublic Sub TraySet(frm As Form, sztip As String, hIcon As Long)
    
    Dim NID As NOTIFYICONDATA
    
    With NID
        .cbSize = Len(NID)
        .hIcon = hIcon
        .hwnd = frm.hwnd
        .sztip = sztip & vbNullChar
        .uCallbackMessage = WM_LBUTTONUP
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uid = 1&
    End With
    
    Shell_NotifyIcon NIM_ADD, NID
    
    frm.Hide
    bTraySet = True
    
End SubPublic Sub TrayRestore(frm As Form)
    
    Dim NID As NOTIFYICONDATA
    
    With NID
        .cbSize = Len(NID)
        .hwnd = frm.hwnd
        .uid = 1&
    End With
    
    Shell_NotifyIcon NIM_DELETE, NID
    frm.Show
    bTraySet = False
    
End SubPublic Sub TrayMenu(frm As Form)
    
    Dim hMenu As Long, tMenu As Long
    Dim MP As POINTAPI
    
    GetCursorPos MP
    hMenu = CreatePopupMenu()
    If bTraySet Then
        AppendMenu hMenu, MF_STRING, 1000, "Restore"
    Else
        AppendMenu hMenu, MF_STRING Or MF_GRAYED, 1000, "Restore"
    End If
    AppendMenu hMenu, MF_SEPARATOR, 0&, 0&
    AppendMenu hMenu, MF_STRING, 1010, "Exit"
    
    tMenu = TrackPopupMenu(hMenu, TPM_NONOTIFY Or TPM_RETURNCMD, MP.x, MP.y, 0&, frm.hwnd, 0&)
    
    Select Case tMenu
        Case 1000
            TrayRestore frm
        Case 1010
            TrayRestore frm
            UnHook
            Unload frm
        Case Else
            'do nothing
    End Select
    
    DestroyMenu hMenu
    
End Sub