MsFlexgrid - Ajuster la largeur des colonnes

Question

Bonjour,

Je souhaite ajuster la largeur des colonnes de mon contrôle MsFlexgrid, après avoir lancer une requête Sql, au texte le plus long de chaque colonne de façon automatique.

Merci à ceux et à celles qui pourront m'apporter leur aide

@+

Int19h · Answer

Salut

Pour modifier la largeur d'une colonne, on utilise ca :

   MSHFlexGrid1.ColWidth(Num_Colonne) = 1545

il faut faire un petit calcul pour connaitre la valeur a mettre en fonction de la police (taille) et le nom de caracter.

++

Int19h

cs_Patrik · Answer

Ok mais comment tu fais pour connaitre la longueur du contenu de la cellule qui soit la plus grande d'une colonne

Merci de m'éclairer

@+

Int19h · Answer

Salut,

Avec un truc du genre :

Function LongMax()
' Mettre 1 si y'a une entete
max=0
for a=0 to MSHFlexGrid1.Rows-1
b$=MSHFlexGrid1.TextMatrix(a,Num_Colonne)
if len(b$)>Max then max=Len(b$)
next

LongMax = max
End Function

Avec ca, tu connais la longeur max...

++

Int19h

cs_Patrik · Answer

La fonction me retourne le nbre de caractères max contenu dans la cellule de la colonne la plus grande, existe t'il un moyen de transformer l'unité pour obtenir des Twips (ce que reconnaît le MsFlexGrid)

Encore merci

@+

Int19h · Answer

re²

Bon, pour savoir les Twips ecran on a la fonction : Screen.TwipsPerPixelX

Mais on aurra une correspondence : Pixel - Twips
Il faut donc pendre en compte la taille de la police de caracter utiliser. On peut la trouver facilement avec : MSHFlexGrid1.Font.Size

Apres rester un petit calcule a faire : 
int(MSHFlexGrid1.Font.Size * Screen.TwipsPerPixelX * Max)

Ca doit donnée a peu pres un resultat correct...

++

Int19h

MsFlexgrid - Ajuster la largeur des colonnes

5 réponses

Discussions similaires