Largeur de la barre de titre d'un formulaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 364 fois - Téléchargée 37 fois

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

Ajouter un commentaire

Commentaires

Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004

Oui, moi je prends 15 ans.
C'est d'ailleurs ce qu'indique VB3 avec Screen.TwipsPerPixelX et Screen.TwipsPerPixelY !
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1
Pourquoi ta constante est de 15.005 moi j'ai toujour pris 15.

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.