Largeur de la barre de titre d'un formulaire

Commenter

Contenu du snippet

Dans ce module deux fonctions:
La premiere (GetTitleHeight) prend un form vb en argument et renvoie un long dont la valeur est la largeur (en pixels je crois...) de la barre de titre
La seconde (GetClientHeight) renvoie la hauteur de la zone client de la fenetre (la zone client = hauteur formulaire - largeur barre de titre)

Source / Exemple : 


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

Const Mutliplicateur = 15.005

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Function GetTitleHeight(Frm As Form) As Long
    Dim MyRect As RECT
    GetClientRect Frm.hwnd, MyRect
    
    GetTitleHeight = Frm.Height - MyRect.Bottom * Mutliplicateur
End Function

Function GetClientHeight(Frm As Form)
    Dim MyRect As RECT
    GetClientRect Frm.hwnd, MyRect
    
    GetClientHeight = MyRect.Bottom * Mutliplicateur
End Function

Conclusion :


Ben voila... A +

MCG

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.