Voila cette est est la suite de celle déposé la semaine dernière sur l'ocx ResizExtra par RPG3000 (
http://www.vbfrance.com/code.aspx?id=27253).
J'ai en fait repris un module trouvé sur le site (signature de l'auteur dans le module) et que j'ai quelques peut modifier pour la circonstance (à peine).
J'ai également repris un petit code que j'avais fais sur le sujet. J'ai adapté le tout dans un ocx.
Bon il y a surement des améliorations a apporter mais c'est déjà pas mal.
Pas eu le temps de gérer la redim des controls avec le SubClassing donc s'il y en a trop sur la feuille cela risque de clignoter (faut qd meme charger un peu).
Ca gère :
- Empeche la fenetre de sortir de l'ecran
- Redim des controls avec la feuille
- Min et Max Size de la fenetre meme avec bouton Restaurer/Maximiser
J'ai mis un petit exemple.
Source / Exemple :
Private Sub Form_Load()
'On active la limitation de taille
Resizer1.Limiter_Dimensions
'On charge la position des controls
Resizer1.Chargement
End Sub
Private Sub Form_Resize()
'On redim les controls
Resizer1.Redimensionner
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.