Largeur de la barre de titre d'un formulaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 604 fois - Téléchargée 40 fois

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

Ajouter un commentaire Commentaires
cs_mehdibou Messages postés 365 Date d'inscription vendredi 24 mai 2002 Statut Membre Dernière intervention 18 octobre 2004
18 nov. 2002 à 18:03
Oui, moi je prends 15 ans.
C'est d'ailleurs ce qu'indique VB3 avec Screen.TwipsPerPixelX et Screen.TwipsPerPixelY !
SupraDolph Messages postés 196 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 1 septembre 2008 1
18 nov. 2002 à 14:04
Pourquoi ta constante est de 15.005 moi j'ai toujour pris 15.
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.