Discussion :

[OhMonBato]

Bonjour a tous,

je ne sais pas si c'est a cause du lundi matin, mais j'ai comme la tres desagreable impression de passer a cote de quelquechose d'evident, sauf que je ne vois pas quoi.

Je cherche tout betement a ajuster la hauteur d'un controle a la feuille. Dans le principe, tout bete evidemment, dans Form_Resize j'ai un truc comme ca :

Text1.Height = Me.Height - 400

Je mets " - 400" ici au pif car je ne suis pas sur la machine avec VB mais dans le principe c'est pour tenir compte de la hauteur de la barre de titre de la fenetre.

Le probleme est justement que ce -400 colle par exemple pour les fenetres en mode XP mais pas en mode Windows classique ou la barre de titre est plus fine et c'est la que je coince, je voudrais evidemment que quel que soit le style de la fenetre mon controle text soit toujours a la meme distance du bas de la fenetre et je ne vois pas par quoi passer.

Je sens que je vais avoir une grosse honte quand on va me filer la reponse

[Invité]

Bonjour

Fais une recherche du coté des API, il me semble avoir vu cela (il y'a bien longtemps, car actuellement je ne fais pas de VB6) qu'avec tu peux récupérer la hauteur de cette barre, ainsi tu auras quelque chose qui fonctionne dans tous les cas.

Starec

[ucfoutu]

Bonjour ohmonbato,

tu cherches peut-être ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CYCAPTION = 4 ' hauteur d'un Caption de fenêtre.
Const SM_CXBORDER = 5 ' largeur de bordures "non-dimensionnables"
Const SM_CYBORDER = 6 'hauteur de bordures "non-dimensionnables"
Const SM_CYMENU = 15 ' hauteur d'un menu
Const SM_CXSIZE = 30 ' Largeur des bitmaps de la barre de titre
Const SM_CYSIZE = 31 ' Hauteur des bitmaps de la barre de titre
 
Private Sub Form_Activate()
    hauteur = GetSystemMetrics(SM_CYMENU)
    MsgBox ScaleY(hauteur, vbPixels, Me.ScaleMode)
End Sub

J'ai mis 5 autres constantes, pour le cas où tu en aurais également besoin.

[OhMonBato]

Merci du tuyau, je n'avais pas du tout pense a cette API.
Le probleme est regle.

[Delbeke]

Essaye aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text1.Height = Me.ScaleHeight

[OhMonBato]

Avec le coup de l'API, ca allait, j'avais pas trop honte.
Maintenant avec la simple propriete ScaleHeight qui repond effectivement a mon besoin, c'est plus pareil, la j'ai bien honte, merci Delbeke