Hauteur de la barre ou on écrie le caption d'une form

Peut-être Me.Height - Me.ScaleHeight ?
Sinon, la heuteur de la barre de titre doit se trouver quelque part dans la
base de registres.
Kiriasse

== "Raymond Fournier" <duracelle(Enlever-ceci)@sympatico.ca> a écrit dans le
message de news: mn.528e7d572d9c84b0.24806@sympatico.ca...

Bonjour a tous,
Je voudrais savoir s?il y a une façon d'avoir la hauteur de la barre ou on
écrie le caption d'une form. Ces dans le but de placer une autre form a
côté mes plus basse que la forme principale.

Merci Raymond Fournier

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Hello,

A partir de windows 98/NT4 sp6, tu peux employer l'API GetTitleBarInfo:
Option Explicit

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" _
( _
ByVal hwnd As Long, _
pti As TITLEBARINFO _
) _
As Long

Private Sub Command1_Click()
Dim ti As TITLEBARINFO
ti.cbSize = LenB(ti)
GetTitleBarInfo Me.hwnd, ti
Debug.Print ti.rcTitleBar.bottom - ti.rcTitleBar.top
End Sub

--
Picalausa François
"Raymond Fournier" <duracelle(Enlever-ceci)@sympatico.ca> a écrit dans le
message de news: mn.528e7d572d9c84b0.24806@sympatico.ca...

Bonjour a tous,
Je voudrais savoir s?il y a une façon d'avoir la hauteur de la barre ou on
écrie le caption d'une form. Ces dans le but de placer une autre form a
côté mes plus basse que la forme principale.

Merci Raymond Fournier

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Bonjour Raymond Fournier,
Raymond Fournier a écrit :

Bonjour a tous,
Je voudrais savoir s?il y a une façon d'avoir la hauteur de la barre ou
on écrie le caption d'une form. Ces dans le but de placer une autre form
a côté mes plus basse que la forme principale.

Merci Raymond Fournier

Pour les fenêtres autre que Fixed et Sizable ToolWindow :

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

Private Const SM_CYCAPTION = 4
Private Const SM_CYEDGE = 46

Private Function GetTitleHeight() As Integer
GetTitleHeight = GetSystemMetrics(SM_CYCAPTION) + _
GetSystemMetrics(SM_CYEDGE)
End Function

--
Cordialement,

Jacques.

Dans son message précédent, Raymond Fournier a écrit :

Bonjour a tous,
Je voudrais savoir s?il y a une façon d'avoir la hauteur de la barre ou on
écrie le caption d'une form. Ces dans le but de placer une autre form a côté
mes plus basse que la forme principale.

Merci Raymond Fournier

Merci pour vos réponses je vais regarder ça de plus près

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net