Formulaire continu à taille variable sort de l'écran
Bonjour à tous.
J'ai adapté la solution de Claude Leloup (positionner-formulaire-par-rapport-controle-autre-formulaire/) pour positionner un formulaire continu à côté d'un controle que l'on ouvre sur le clic de ce controle, et faire en sorte qu'il tienne dans l'écran.
Cela fonctionne pour le haut, la gauche et la droite car la largeur est fixe mais pas pour le bas car la dimension du formulaire varie en fonction du nombre d'enregistrement.
Sur clic du controle du formulaire1, j'exécute la fonction
Code:
1 2
|
PositionForm(formulaire-continu, controle-du-formulaire1) |
Le problème c'est que au moment où j'ouvre le formulaire, je ne connais pas sa taille
Code:
1 2 3 4 5
|
' Si déborde en bas => affiche le formulaire au dessus du contrôle
If lRect.Top + lRect.Bottom > lScrHeight Then
lRect.Top = lRect.Top - TwipsToPixelY(pControl.Height) - lRect.Bottom
End If |
donc impossible de renseigner à l'avance pControl.Height ou lRect.bottom
Je vous remercie d'avance pour vos suggestions.