Feuille form

Signaler
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
14 octobre 2006
-
Quand je lance l’exécution, comment puis-je avoir une feuille form ajustée à son contenu.


Je veux dire par là que la taille de la fenêtre puisse s’adapter à la taille des objets (text box, combo box …) qui sont dedans.

3 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Tu parcours tous les contrôles de ta feuille, et tu enregistres celui
qui est positionné le plus à droite, et celui qui est positionné le
plus bas. Ils te serviront à déterminer la taille de ta feuille.







Private Sub Form_Load()



Dim ctl As Control

Dim maxX As Long

Dim maxY As Long



maxX = 0

maxY = 0

For Each ctl In Me.Controls

If ctl.Left + ctl.Width > maxX Then

maxX = ctl.Left + ctl.Width

End If



If ctl.Top + ctl.Height > maxY Then

maxY = ctl.Top + ctl.Height

End If

Next ctl

' 600 et 300 sont rajoutés pour qu'il y ait une marge avec le bord de la feuille.

Me.Height = maxY + 600

Me.Width = maxX + 300



End Sub


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
0
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006

cool j'essaie ca !!!
mais vu les explications precises ca devrait marcher merci !!
0
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
14 octobre 2006

Les 600 et 300 sont valables que si le ScaleMode de ta form est sur "1-Twip"
Reduit/Augmente ces valeurs en fonction de ton unité.
0