_ Ia ora na.
_ Si vous avez utilisé le code proposé par Romain Puyfoulhoux sous le titre
Comment afficher une form dont les dimensions ne dépendent pas de la résolution ?
vous avez trouvé dans la procédure ResizeForResolution une ligne
If TypeOf ctl Is Label Then ctl.FontSize = ctl.FontSize * RatioPolices
qui doit modifier la taille de la police dans les étiquettes ; pour modifier également la taille de la police dans les boutons, il suffit d'ajouter une ligne
If TypeOf ctl Is CommandButton Then ctl.FontSize = ctl.FontSize * RatioPolices
_ Deux remarques :
a) il doit exister un moyen plus élégant d'ajouter le second test au premier, mais je ne suis pas sûr que l'on puisse inclure Type Of dans une structure Select Case ;
b) la gestion des textes n'étant pas exactement identique entre les deux types de contrôle, il se peut que certains résultats ne soient pas idéaux ; vous pourriez alors définir et employer une valeur RatioPolicesBouton plus ou moins différente de RatioPolices et propre à ce contôle.
_ Bonne réussite dans votre entreprise.
Partager