Connaitre la taille de la barre de titre

Soyez le premier à donner votre avis sur cette source.

Vue 3 129 fois - Téléchargée 209 fois

Description

je cherchais ca, G chercher ds ma p'tite kompil', et G pas trouver...

C pourtant bien pratique... C une modification d'une code de l'api-guide (www.allapi.net)

Donc voila

Source / Exemple :


Option Explicit
Private Const STATE_SYSTEM_FOCUSABLE = &H100000
Private Const STATE_SYSTEM_INVISIBLE = &H8000
Private Const STATE_SYSTEM_OFFSCREEN = &H10000
Private Const STATE_SYSTEM_UNAVAILABLE = &H1
Private Const STATE_SYSTEM_PRESSED = &H8
Private Const CCHILDREN_TITLEBAR = 5
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Type TITLEBARINFO
    cbSize As Long
    rcTitleBar As RECT
    rgstate(CCHILDREN_TITLEBAR) As Long
End Type
Private Declare Function GetTitleBarInfo Lib "user32.dll" (ByVal hwnd As Long, ByRef pti As TITLEBARINFO) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim TitleInfo As TITLEBARINFO
    'Initialize structure
    TitleInfo.cbSize = Len(TitleInfo)
    'Retrieve information about the tilte bar of this window
    GetTitleBarInfo Me.hwnd, TitleInfo
    'Show some of that information
    Me.Caption = CStr(TitleInfo.rcTitleBar.Bottom - TitleInfo.rcTitleBar.Top) * Screen.TwipsPerPixelY
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_mehdibou
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004
-
merci, bien utile ;)

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.