Feuille form
manud31
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
19 janv. 2006 à 22:12
acecel Messages postés 140 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 14 octobre 2006 - 20 janv. 2006 à 09:51
acecel Messages postés 140 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 14 octobre 2006 - 20 janv. 2006 à 09:51
3 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
19 janv. 2006 à 22:34
19 janv. 2006 à 22:34
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.
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.
manud31
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
19 janv. 2006 à 22:40
19 janv. 2006 à 22:40
cool j'essaie ca !!!
mais vu les explications precises ca devrait marcher merci !!
mais vu les explications precises ca devrait marcher merci !!
acecel
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
14 octobre 2006
20 janv. 2006 à 09:51
20 janv. 2006 à 09:51
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é.
Reduit/Augmente ces valeurs en fonction de ton unité.
