DIMENSION DE L'INTÉRIEUR D'UNE FENÊTRE - RÉGLER LA TAILLE D'UNE FENÊTRE EN FONCT
_120_
Messages postés
15
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2007
-
20 mars 2006 à 17:23
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 21 mars 2006 à 09:36
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 21 mars 2006 à 09:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36636-dimension-de-l-interieur-d-une-fenetre-regler-la-taille-d-une-fenetre-en-fonction-de-l-espace-reellement-utilisable-par-les-controles
https://codes-sources.commentcamarche.net/source/36636-dimension-de-l-interieur-d-une-fenetre-regler-la-taille-d-une-fenetre-en-fonction-de-l-espace-reellement-utilisable-par-les-controles
21 mars 2006 à 09:36
21 mars 2006 à 07:44
21 mars 2006 à 07:35
J'avais pas pensé à ça en effet !
20 mars 2006 à 23:05
pour la forme :
Private Sub Set_Int_Dims(ByRef F As Form, ByVal TargetWidth As Single, ByVal TargetHeight As Single)
Dim BordureX As Single
Dim BordureY As Single
With F
If .WindowState = vbNormal Then 'si la fenetre n'est pas maximisée ou minimisée
'en faisant la différence entre les dimensions extérieures et intérieures
'de la form, j'obtiens la taille des bordures entourant ma form
BordureX = .Width - .ScaleX(.ScaleWidth, .ScaleMode, vbTwips)
BordureY = .Height - .ScaleY(.ScaleHeight, .ScaleMode, vbTwips)
'la taille extérieure de ma form doit donc etre égale à la dimension intérieure
'choisie + les bordures
TargetWidth = .ScaleX(TargetWidth, .ScaleMode, vbTwips)
TargetHeight = .ScaleY(TargetHeight, .ScaleMode, vbTwips)
.Move .Left, .Top, TargetWidth + BordureX, TargetHeight + BordureY
End If
End With
End Sub
20 mars 2006 à 19:59
F.Width est en Twips
F.ScaleWidth est en Pixels
donc pas bon !
20 mars 2006 à 18:14
Parce que imagine que tu ais une form de ce style :
___________________________
|text1______________________|
_____________
| command1 |
|_____________|
Si tu veux que la fenetre prenne pile les dimensions nécéssaires, il faut pouvoir donner text1.width en parametre pour la largeur et command1.top+command1.height pour la hauteur
20 mars 2006 à 17:59
SetDim Me, Image1
End Sub
Private Sub SetDim(F As Form, O As Object)
On Error Resume Next
F.Width = O.Width + (F.Width - F.ScaleWidth)
F.Height = O.Height + (F.Height - F.ScaleHeight)
End Sub
@+
20 mars 2006 à 17:23
:'-(