Comment trouver la position d'un Form grace a son Hwnd ?Résolu

Question

Bonjour,

je souhaiterai trouver la position ( Top & Left ) d'un Form cree dynamiquement et dont je ne connais que le Hwnd.
quelqu'un a une idee ??

Merci

Gobillot · Accepted Answer

avec des Formes indic&#233;es t'aurait directement acc&#232;s aux propri&#233;t&#233;s Left et Top.

par contre avec GetWindowRect, les positions sont par rapport &#224; l'&#233;cran.









Dim frm(2) As Form



Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type



Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long



Private Sub MDIForm_Load()

    

    Set frm(0) = New Form1

    frm(0).Left = 0

    frm(0).Top = 0

    frm(0).Caption = "frm0"

    frm(0).Show

    

    Set frm(1) = New Form1

    frm(1).Left = 0

    frm(1).Top = 0

    frm(1).Caption = "frm1"

    frm(1).Show



End Sub



Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Dim n   As Long

    Dim rec As RECT

    

    n = frm(0).Left + Me.Left + 90

    MsgBox n / Screen.TwipsPerPixelX

    n = frm(0).hwnd

    GetWindowRect n, rec

    MsgBox rec.Left

    

End Sub


Daniel

ShareVB · Answer

salut,



l'api GetWindowPos me semble-t-il...

ShareVB

looping_69 · Answer

c'est bien ce qu'il me semblait mais je n'arrive pas a la feire marcher ...

Gobillot · Answer

si tu connais son nom,

directement avec Left et Top









    Dim Form2 As Form1



    Set Form2 = New Form1

    Form2.Caption = "Form2"

    Form2.Left = 0

    Form2.Top = 0

    Form2.Show


Daniel

looping_69 · Answer

le fait est que la fenetre est deja ouverte et que je ne connais que son hwnd.
et je veux justement recuperer sont top et son left.

Gobillot · Answer

c'est pas toi qui l'a cr&#233;e alors !











Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type



Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long


Daniel

looping_69 · Answer

si mais dynamiquement avec un 
j'ai une forme mdi parent avec une toolbar et quand je clik sur un boutton il m'ouvre une nouvelle fenetre frmC

avec       Set frmC = New form1

et quand je ferme cette fenetre, je veux recuperer son top et son left pour les sauvegarder. Mais je ne connais que son Hwnd (que j'ai mis dans un tableau)

looping_69 · Answer

Nickel ca a l'air de fonctionner, mais une chose est bizare, quand je rappel ma fenetre avec ces donnee sauvegrde, elle ne se remet pas a la meme position.

est-ce que le fait que se soit une fenetre fille d'une MDI change quelque chose ?

looping_69 · Answer

Merci Daniel c'est cool d'etre depane meme a des heures pareil ;o)