cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 6 juil. 2004 à 15:17
bon me suis répondu moi même
lors d'un redimentionnement, on vas chercher le pourcentage le plus petit entre la hauteur et la largeur, pour pas que le texte dépasse d'un côté (exemple, si on étire le control vers el haut, faut pas que le teste devienne trop grand pour dépasser en largeur)
If x_pourcentage < y_pourcentage Then
fontSizePourcent = x_pourcentage
Else
fontSizePourcent = y_pourcentage
End If
ensuite parcourir tout les controls
Me.Controls(i).Font = New Font(Me.Controls(i).Font.Name, formulaire.element(i).FontSize / fontSizePourcent, Me.Controls(i).Font.Unit)