Taille Automatique des colonnes dans MSHFlexgrid
SEB83200
Messages postés
34
Date d'inscription
lundi 16 juin 2008
Statut
Membre
Dernière intervention
11 juin 2013
-
18 févr. 2009 à 18:33
xpert12 Messages postés 114 Date d'inscription lundi 5 février 2007 Statut Membre Dernière intervention 10 septembre 2010 - 18 févr. 2009 à 23:57
xpert12 Messages postés 114 Date d'inscription lundi 5 février 2007 Statut Membre Dernière intervention 10 septembre 2010 - 18 févr. 2009 à 23:57
A voir également:
- Taille Automatique des colonnes dans MSHFlexgrid
- Ecriture automatique debutant - Forum IRC
- Php taille tableau ✓ - Forum PHP
- Création automatique de documents - Forum ASP / ASP.NET
- Afficher les colonnes d'une table sql ✓ - Forum SQL
- Défilement automatique page web - Forum Javascript / DHTML
1 réponse
xpert12
Messages postés
114
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
10 septembre 2010
18 févr. 2009 à 23:57
18 févr. 2009 à 23:57
salut,
en fait c'est assez simple. Utilise le code suivant :
Public Sub AutosizeGridColumns(ByRef myFlex As MSFlexGrid, ByVal MaxRowsToParse _
As Integer, ByVal MaxColWidth As Integer)
Dim I, J As Integer
Dim txtString As String
Dim intTempWidth, BiggestWidth As Integer
Dim intRows As Integer
Const intPadding = 150
With myFlex
For I = 0 To .Cols - 1
.Col = I
intRows = .Rows
If intRows > MaxRowsToParse Then intRows = MaxRowsToParse
intBiggestWidth = 0
For J = 0 To intRows - 1
.Row = J
txtString = .Text
intTempWidth = TextWidth(txtString) + intPadding
If intTempWidth > intBiggestWidth Then intBiggestWidth = intTempWidth
Next J
.ColWidth(I) = intBiggestWidth
Next I
intTempWidth = 0
For I = 0 To .Cols - 1
intTempWidth = intTempWidth + .ColWidth(I)
Next I
If intTempWidth < myFlex.Width Then
intTempWidth = Fix((myFlex.Width - intTempWidth) / .Cols)
For I = 0 To .Cols - 1
.ColWidth(I) = .ColWidth(I) + intTempWidth
Next I
End If
End With
End Sub
En espérant que ça puisse t'aider !!
en fait c'est assez simple. Utilise le code suivant :
Public Sub AutosizeGridColumns(ByRef myFlex As MSFlexGrid, ByVal MaxRowsToParse _
As Integer, ByVal MaxColWidth As Integer)
Dim I, J As Integer
Dim txtString As String
Dim intTempWidth, BiggestWidth As Integer
Dim intRows As Integer
Const intPadding = 150
With myFlex
For I = 0 To .Cols - 1
.Col = I
intRows = .Rows
If intRows > MaxRowsToParse Then intRows = MaxRowsToParse
intBiggestWidth = 0
For J = 0 To intRows - 1
.Row = J
txtString = .Text
intTempWidth = TextWidth(txtString) + intPadding
If intTempWidth > intBiggestWidth Then intBiggestWidth = intTempWidth
Next J
.ColWidth(I) = intBiggestWidth
Next I
intTempWidth = 0
For I = 0 To .Cols - 1
intTempWidth = intTempWidth + .ColWidth(I)
Next I
If intTempWidth < myFlex.Width Then
intTempWidth = Fix((myFlex.Width - intTempWidth) / .Cols)
For I = 0 To .Cols - 1
.ColWidth(I) = .ColWidth(I) + intTempWidth
Next I
End If
End With
End Sub
En espérant que ça puisse t'aider !!
