AJUSTER MSHFLEXGRID
cs_moustachu
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
-
29 oct. 2003 à 09:42
elaasri_hafid Messages postés 1 Date d'inscription samedi 12 février 2005 Statut Membre Dernière intervention 3 novembre 2006 - 3 nov. 2006 à 15:43
elaasri_hafid Messages postés 1 Date d'inscription samedi 12 février 2005 Statut Membre Dernière intervention 3 novembre 2006 - 3 nov. 2006 à 15:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/17468-ajuster-mshflexgrid
https://codes-sources.commentcamarche.net/source/17468-ajuster-mshflexgrid
3 nov. 2006 à 15:43
24 juil. 2004 à 22:14
c'est en en effet plus simple mais je viens de tester, pas très fiable comme calcul....
22 juil. 2004 à 13:32
Public Function AjustTaille(Str As String, FontSize As Long) As Long
'-----------------------------------------<
'Ajuste la taille d'un contrôle ou de la colonne d'un Mshflexgrid
'en fonction de son contenu
'retourne la nouvelle largeur du contrôle en twips
'-----------------------------------------
Const PointsPerPouce = 72
Const TwipsPerPouce = 1440
AjustTaille = (Len(Str) * FontSize / PointsPerPouce) * TwipsPerPouce
End Function
29 oct. 2003 à 11:54
MSHFlDonnees.Redraw = False
et remettre à True après la boucle.
Simple suggestion...
29 oct. 2003 à 09:42