(VB6) REDIMMENSIONNER LA 'ZONE CLIENT' D'UNE FORM EN PIXELS

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

'---------------------------------------------------------------------------------------
' APIs pour mesure de la 'zone client' d'une form
'---------------------------------------------------------------------------------------
Const Mutliplicateur = 15.005
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

'---------------------------------------------------------------------------------------
' Procedure : GetClientHeight
' Date      : 17/11/2002
' Auteur(s) : Mix78 (vbfrance.com)
'---------------------------------------------------------------------------------------
' Donne la hauteur (en twips) d'une form sans les bords ni la barre de titre
'---------------------------------------------------------------------------------------
Public Function GetClientHeight(Frm As Form)
    Dim MyRect As RECT
    GetClientRect Frm.hwnd, MyRect
    GetClientHeight = MyRect.Bottom * Mutliplicateur
End Function

'---------------------------------------------------------------------------------------
' Procedure : GetClientWidth
' Date      : 17/11/2002
' Auteur(s) : d'après 'GetClientHeight' Mix78 (vbfrance.com)
'---------------------------------------------------------------------------------------
' Donne la largeur (twips) d'une form sans les bords
'---------------------------------------------------------------------------------------
Public Function GetClientWidth(Frm As Form)
    Dim MyRect As RECT
    GetClientRect Frm.hwnd, MyRect
    GetClientWidth = MyRect.Right * Mutliplicateur
End Function

'---------------------------------------------------------------------------------------
' Procedure : MetFrmWidthPixels
' Date      : 16/06/2004 05:06
' Auteur(s) : Isoat - Brice C. Huelce
'---------------------------------------------------------------------------------------
' Redimmensionne la largeur de la 'zone client' d'une form en pixels
'---------------------------------------------------------------------------------------
Public Sub MetFrmWidthPixels(Frm As Form, IntPixels As Integer)
'-- On chope la largeur des bords de la form en pixels :
'largeur de la form - largeur de la 'zone client' de cette form
'qu'on passe en pixels grace à ScaleX
Dim TempSng As Single
TempSng = Frm.ScaleX(CSng(Frm.Width - GetClientWidth(Frm)), vbTwips, vbPixels)
'-- Redimmensionne la largeur de la form, en twips
'Nb de pixels voulus (IntPixels) + largeur des bords (TempSng)
Frm.Width = Frm.ScaleX(CSng(IntPixels) + TempSng, vbPixels, vbTwips)
End Sub


'---------------------------------------------------------------------------------------
' Procedure : MetFrmHeightPixels
' Date      : 16/06/2004 05:06
' Auteur(s) : Isoat - Brice C. Huelce
'---------------------------------------------------------------------------------------
' Redimmensionne la hauteur de la 'zone client' d'une form en pixels
'---------------------------------------------------------------------------------------
Public Sub MetFrmHeightPixels(Frm As Form, IntPixels As Integer)
'-- On chope la hauteur des bords + hauteur de la barre de titre de la form en pixels :
'hauteur de la form - hauteur de la 'zone client' de cette form
'qu'on passe en pixels grace à ScaleY
Dim TempSng As Single
TempSng = Frm.ScaleY(CSng(Frm.Height - GetClientHeight(Frm)), vbTwips, vbPixels)
'-- Redimmensionne la hauteur de la form, en twips
'Nb de pixels voulus (IntPixels) + hauteur des bords/barre de titre (TempSng)
Frm.Height = Frm.ScaleY(CSng(IntPixels) + TempSng, vbPixels, vbTwips)
End Sub