Cordinate del mouse su TrayBar

[IKON]

Salve
ho creato un programmino che mostra un icona sulla tray bar.
Vorrei che cliccando sul tasto destro del mouse sull' icona comparisse un menù posizianato alle coordiante del mouse.

Il problema è:
Come faccio a sapere quali sono le coordinate del mouse quando sto sulla tray bar?

Grazie a tutti.

[ans]

Dichiarazioni

Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206

Gestione del mouse all'evento Form_MouseMove

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim msg As Long

    msg = X / Screen.TwipsPerPixelX
 
    Select Case msg
        Case WM_LBUTTONDOWN
        '    
        Case WM_LBUTTONUP
        '
        Case WM_LBUTTONDBLCLK
        '
        Case WM_RBUTTONDOWN
        '
        Case WM_RBUTTONUP
        ' gestione menu popup su pressione tasto desto
        Case WM_RBUTTONDBLCLK
        '
    End Select
End Sub

[IKON]

Grazie per l'interesse... ma credo di essermi espresso male

Quando il form è invisibile e faccio clic sull'icona nella traybar non posso utilizzare i parametri x e y perchè fanno riferimento al form (che è invisibile).
Perciò dovrei trovare il modo di recuperare le coordinate del mouse sullo schermo.
In questo modo posso impostare le coordinate del menù che devo fare aprire.

Spero che qualcuno abbia una soluzione.

[IKON]

:quote: Niente di niente??

[ans]

ti ho già risposto.

[jabjoint]

Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


devi ottenere le posizioni del cursore(x,y dello schermo), poi con sendmessage verifichi se sei sulla traybar

[ans]

il Form già le ritorna le coordinate... poi fate come volete.

L'icona dove appartiene ? è una entità astratta ? appartiene al form ? e allora xchè non deve essere generato il mousemove? a me lo genera.

[IKON]

Grazie JabJoint ora provo. Penso che questa sia la strada giusta :metallica

[IKON]

Allora...
Ho provato ma non ci riesco.
Ho dichiarato le due chaimate API come hai scritto tu, ho dicharato una variabile tipo PointAPI che poi ho utilizzato dove devo aprire il menù... ma niente non riesco ad ottenere le coordinate giuste.

PS non ho capito come usare sendmessage.
Potresti fare un' esempio per far funzionare il tutto?

Grazie

[jabjoint]

ciao IKON, la sendmessage purtroppo non so utilizzarla neppure io ma penso sia quella che t' occorre! Prova a cercare in rete o sul forum.
Mi spiace nn poterti aiutare... ciao!