[VB6] posizione assoluta di Ctrl sullo schermo

[napuleone]

avete qualche routine che determini la posizione assoluta di un controllo sullo schermo ?
esempio ho un TextBox annidato dentro un frame dentro una picture in una form(child) che è in una MDI
Il sistema semplice è dare i rifermenti TOP LEFT di tutte le posizioni calcolare con gli scaleheight e scalewidth ecc. e ci si arriva.

Ho provato a testare i container ma mi incasino.

Se i controlli di cui conoscere la posizione sono tanti i tempi di programmazione diventano infiniti. quello che cerco è una routine che me li riporti a livello di SCREEN.TOP e SCREEN.LEFT dandogli solo i riferimenti del controllo.

Grazie anticipate

[gibra]

Puoi farlo solo per i controlli 'veri' cioè quelli che espongono la proprietà hWnd, per cui sono esclusi Label, Shape, Line, ecc...

Il codice è questo:

' Dichiarazioni
Private Declare Function GetWindowRect Lib "user32" _
    (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Sub GetControlPosition(ByVal hWnd As Long)
    Dim r As Long
    Dim wCtrl As Long 'larghezza finestra
    Dim hCtrl As Long  'altezza finestra
    Dim rc As RECT
    r = GetWindowRect(hWnd, rc)
    wCtrl = (rc.Right - rc.Left)
    hCtrl = (rc.Bottom - rc.Top)
End Sub

Ovviamente come avviene con tutte le funzioni API i valori ricavati sono in pixels , che eventualmente puoi convertire in Twips moltiplicandoli per Screen.TwipsPerPixelX e Screen.TwipsPerPixelY.

Ad esempio:
rc.Left * Screen.TwipsPerPixelX
wCtrl * Screen.TwipsPerPixelX

[napuleone]

1GigaGrazie a gibra
funziona è anche + di quello che cercavo
(anche se al primo test non ho applicato il twinperpixel come mi avevi detto)

[gibra]

Ne sono felice.