Mouse Move на иконке в трее

[Alex_2005]

Как мне отловить Mouse Move на иконке в трее??

[Gigahard]

По событию MouseMove.

Код: Выделить всё

Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / Screen.TwipsPerPixelX

Select Case X
Case WM_LBUTTONDOWN
Caption = "Left Click"
Case WM_RBUTTONDOWN
Caption = "Right Click"
Case WM_MOUSEMOVE
Caption = "Move"
Case WM_LBUTTONDBLCLK
Caption = "Double Click"
End Select
End Sub

[Antonariy]

Зависит от типа NOTIFYICONDATA. Если такой:

Код: Выделить всё

Private Type 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

то как написал Gigahard
Если такой:

Код: Выделить всё

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
  guidItem As GUID
End Type

то при инициализации трея нужно .uCallbackMessage = WM_RBUTTONDOWN и

Код: Выделить всё

Private Enum TrayIcon_Mouse
    TRAYICON_MOUSE_MOVE = 0
    TRAYICON_MOUSE_LEFTDOWN = 1
    TRAYICON_MOUSE_LEFTUP = 2
    TRAYICON_MOUSE_LEFTDBLCLICK = 3
    TRAYICON_MOUSE_RIGHTDOWN = 4
    TRAYICON_MOUSE_RIGHTUP = 5
    TRAYICON_MOUSE_RIGHTDBLCLICK = 6
End Enum

Private Sub lForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case (X And &HFF) / Screen.TwipsPerPixelX
        Case TRAYICON_MOUSE_LEFTDBLCLICK
            RaiseEvent DblClick(1)
        Case TRAYICON_MOUSE_LEFTDOWN
            RaiseEvent MouseDown(1)
        Case TRAYICON_MOUSE_LEFTUP
            RaiseEvent MouseUp(1)
        Case TRAYICON_MOUSE_RIGHTDBLCLICK
            RaiseEvent DblClick(2)
        Case TRAYICON_MOUSE_RIGHTDOWN
            RaiseEvent MouseDown(2)
        Case TRAYICON_MOUSE_RIGHTUP
            RaiseEvent MouseUp(2)
        Case TRAYICON_MOUSE_MOVE
            RaiseEvent MouseMove
    End Select
End Sub

[Gigahard]

Да вообще без разницы к чему привязывать обработку мыши... Можно и к WM_MOUSEMOVE и к WM_RBUTTONDOWN и к WM_LBUTTONDOWN.

Но WM_MOUSEMOVE предпочтительней, т.к. не возникает мелких глючков, как в случае привязки к событиям обработки кликов.

Просто потом в коде формы нужно поставить соответствующие процедуры обработки... Если используем WM_MOUSEMOVE то обработчик нужно привязывать к событию формы MouseMove, а если обработку Callback привязываем к событию нажатия кнопки, то тот же код обработки нужно помещать в событие формы MouseDown...

от NOTIFYICONDATA это не зависит. Просто в одном случае пишется сокращенный вариант структуры, а во втором полный.
Точнее новые параметры добавлены в новой версии структуры... Не знаю прокатит ли такая структура скажем под 98ми...

[Alex_2005]

получается, что событие трея привязывается к форме? Если так, то это не подходит, так как программа не имеет форму.

[alibek]

Без окна ты и значка в трее не создашь.

[Gigahard]

А me.hide сделать не судьба?