Il est clair que tu auras besoin des 3 structures suivantes à déclarer avant la fonction GetWindowPlacement
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Exemple ensuite pour la largeur de la fenêtre dont le hwnd est tata
Dim toto As WINDOWPLACEMENT, titi As Long, rectan As RECT
toto.Length = Len(toto)
titi = GetWindowPlacement(tata, toto)
rectan = toto.rcNormalPosition
MsgBox rectan.Right - rectan.Left
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est