AJUSTER MSHFLEXGRID

Signaler
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
-
Messages postés
1
Date d'inscription
samedi 12 février 2005
Statut
Membre
Dernière intervention
3 novembre 2006
-
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

Messages postés
1
Date d'inscription
samedi 12 février 2005
Statut
Membre
Dernière intervention
3 novembre 2006

bien il est comlet
Messages postés
30
Date d'inscription
lundi 18 novembre 2002
Statut
Membre
Dernière intervention
5 août 2004

merci logedu pour le code,
c'est en en effet plus simple mais je viens de tester, pas très fiable comme calcul....
Messages postés
33
Date d'inscription
mercredi 26 mars 2003
Statut
Membre
Dernière intervention
1 mars 2005

Utilise le code suivant, c'est plus simple :
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
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Pour éviter de voir l'ajustement de la grille tout au long de la boucle, tu devrais mettre tout juste avant la boucle For:
MSHFlDonnees.Redraw = False

et remettre à True après la boucle.

Simple suggestion...
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012

Ca peut être utile, c'est vrai