[vb6] conoscere posizione e altezza della barra di windows

[lufo5]

qualche suggerimento? Sulla posizione forse qualcosa ho trovato.. ma sulla altezza, niente. L'ideale sarebbe sapere la posizione esatta di una icona nella tray.

[xegallo]

spe che ti serve? trovare il mousemove nell'icona?

[lufo5]

Originariamente inviato da xegallo
spe che ti serve? trovare il mousemove nell'icona?

no, conoscere l'esatta posizione dell'icona nella tray per fare qualcosa di simile al pop-up del messenger...

[xegallo]

Option Explicit

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function CopyRect Lib "user32" (lpDestRect As RECT, lpSourceRect As RECT) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Form_Load()

    Dim rectWindow As RECT
    Dim rectCopy As RECT
    Dim THwnd As Long
    THwnd = FindWindow("Shell_traywnd", vbNullString)
    GetWindowRect THwnd, rectCopy
    MsgBox rectCopy.Top
End Sub

ovviamente espresso in pixel

[lufo5]

grazie amore!