mouse down on system tray icon, not notify icon

[gccosta]

i am using this:

Imports System.Runtime.InteropServices
 
Module api
 
    Public Result As Boolean
    <StructLayout(LayoutKind.Sequential)> Public Structure NOTIFYICONDATA
        Dim cbSize As Int32
        Dim hwnd As IntPtr
        Dim uID As Int32
        Dim uFlags As Int32
        Dim uCallbackMessage As IntPtr
        Dim hIcon As IntPtr
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> Dim szTip As String
        Dim dwState As Int32
        Dim dwStateMask As Int32
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> Dim szInfo As String
        Dim uVersion As Int32
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)> Dim szInfoTitle As String
        Dim dwInfoFlags As Int32
    End Structure
 
    Public Const NIF_MESSAGE As Int32 = &H1
    Public Const NIF_ICON As Int32 = &H2
    Public Const NIF_STATE As Int32 = &H8
    Public Const NIF_INFO As Int32 = &H10
    Public Const NIF_TIP As Int32 = &H4
    Public Const NIM_ADD As Int32 = &H0
    Public Const NIM_MODIFY As Int32 = &H1
    Public Const NIM_DELETE As Int32 = &H2
    Public Const NIM_SETVERSION As Int32 = &H4
    Public Const NOTIFYICON_VERSION As Int32 = &H5
    Public Const NIS_HIDDEN = &H1
    Public Const NIS_SHAREDICON = &H2
    Public Const NIIF_ERROR = &H3
    Public Const NIIF_INFO = &H1
    Public Const NIIF_NONE = &H0
    Public Const NIIF_WARNING = &H2
    Public Const NIM_SETFOCUS = &H4
    Public Const NIIF_GUID = &H5
    Public Declare Function Shell_NotifyIcon Lib "shell32.dll" _
    Alias "Shell_NotifyIconA" (ByVal dwMessage As Int32, _
    ByRef lpData As NOTIFYICONDATA) As Boolean
    Public uNIF As NOTIFYICONDATA
 
    ' Displays a balloon info notification
 
    Public Sub SendBalloonInfoNotification(ByVal strInfo As String)
        With uNIF
            .uFlags = NIF_INFO
            .uVersion = 2000
            .szInfoTitle = "Info"
            .szInfo = strInfo
            .dwInfoFlags = NIIF_INFO
        End With
        Result = Shell_NotifyIcon(NIM_MODIFY, uNIF)
    End Sub
 
    ' Displays a balloon warning notification
 
    Public Sub SendBalloonWarningNotification(ByVal strWarning As String)
        With uNIF
            .uFlags = NIF_INFO
            .uVersion = 2000
            .szInfoTitle = "Warning"
            .szInfo = strWarning
            .dwInfoFlags = NIIF_WARNING
        End With
        Result = Shell_NotifyIcon(NIM_MODIFY, uNIF)
    End Sub
 
    ' Displays a balloon error notification
 
    Public Sub SendBalloonErrorNotification(ByVal strError As String)
        With uNIF
            .uFlags = NIF_INFO
            .uVersion = 2000
            .szInfoTitle = "Error"
            .szInfo = strError
            .dwInfoFlags = NIIF_ERROR
        End With
        Result = Shell_NotifyIcon(NIM_MODIFY, uNIF)
    End Sub
 
    ' Removes the application icon from the system tray
 
    Public Sub RemoveIconFromTray(ByRef frmForm As System.Windows.Forms.Form)
        With uNIF
            .cbSize = Marshal.SizeOf(uNIF)
            .hwnd = frmForm.Handle()
            .uID = 1
        End With
        Shell_NotifyIcon(NIM_DELETE, uNIF)
    End Sub
    ' Adds a application icon to system tray
 
    Public Sub AddIconToTray(ByRef frmForm As System.Windows.Forms.Form)
        With uNIF
            .cbSize = Marshal.SizeOf(uNIF)
            .hwnd = frmForm.Handle
            .uID = 1
            .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
            .uCallbackMessage = New IntPtr(&H500)
            .uVersion = NOTIFYICON_VERSION
            .hIcon = frmForm.Icon.Handle
        End With
        Result = Shell_NotifyIcon(NIM_ADD, uNIF)
    End Sub
 
End Module

to display an icon on the system tray, on the load event i call:

AddIconToTray(Me)

how can i get the mouse events of the icon that goes to the system tray?


Thank you,
Guilherme Costa

[Edneeis]

Why aren't you using the NotifyIcon control? That makes life a lot easier. Otherwise rumage through VB6 code that uses the APIs and see how it captured the mouse click.