Connaitre la taille de la barre de titre

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

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.

Du même auteur (Alan71)