Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 09:08:20

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par louvierseb

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

+ de logiciels à télécharger

1 465 026 membres
74 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 056 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DATAGRID: AJUSTER LA LARGEURS DES COLONNES

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 14/04/2005 Vu : 6 372

Auteur : CharlesZan

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Bonjour!
Petite fonction bien pratique.
Elle ajuste la largeur des colonne de votre datagrid au contenus de celle-ci.
J'en ai pas trouvé sur le site alors je l'ajoute!

C'est ma première source alors on reste gentil hein? :D

Source

'--------------------------------------------------------------------------
'
' Ajuste la largeur des colonnes au contenus de la grid
'
' Parametres:
' oDataGrid -> le nom de la Datagrid à redimensionner
' oForm -> le nomn de la form
'
' Note: Si ColumnHeading est plus large que CellWidth, HeadingWidth est utilisé
'
'Pour l'utilisé vous appelez dans votre code comme ceci :
' DatagridColumnAutoResize nomForm.nomDataGrid, nomForm
'--------------------------------------------------------------------------
Public Sub DatagridColumnAutoResize(ByRef oDataGrid As DataGrid, _
ByRef oForm As Form)
Dim i As Integer, iMax As Integer
Dim t As Integer, tMax As Integer
Dim iWidth As Integer
Dim vBMark As Variant
Dim aWidth As Variant
Dim cText As String
Dim oFont As Font
On Error Resume Next
oFont = oForm.Font
oForm.Font = oDataGrid.Font
iMax = oDataGrid.Columns.Count - 1
ReDim aWidth(iMax)
For i = 0 To iMax 'init maxwidth holder
aWidth(i) = 0
Next
tMax = oDataGrid.VisibleRows - 1
For t = 0 To tMax 'nombres de lignes
vBMark = oDataGrid.GetBookmark(t)
For i = 0 To iMax 'nombres de colonnes
cText = oDataGrid.Columns(i).CellText(vBMark)
iWidth = oForm.TextWidth(cText)
If iWidth + ((12 * Len(cText)) + 220) > aWidth(i) Then
'quelques ajustements manuels
aWidth(i) = iWidth + ((12 * Len(cText)) + 220)
End If
If t = 0 Then 's'occupe des headers
iWidth = oForm.TextWidth(oDataGrid.Columns(i).Caption)
If iWidth + ((12 * Len(cText)) + 220) > aWidth(i) Then
aWidth(i) = iWidth + ((12 * Len(cText)) + 220)
End If
End If
Next
Next
For i = 0 To iMax ' Assigne la nouvelle largeur de colonne
oDataGrid.Columns(i).Width = aWidth(i)
Next
oForm.Font = oFont
End Sub

'--------------------------------------------------------------------------
'
' Ajuste la largeur des colonnes au contenus de la grid
'
' Parametres:
'               oDataGrid       -> le nom de la Datagrid à redimensionner
'               oForm           -> le nomn de la form
'
' Note: Si ColumnHeading est plus large que CellWidth, HeadingWidth est utilisé
'
'Pour l'utilisé vous appelez dans votre code comme ceci :
'                 DatagridColumnAutoResize nomForm.nomDataGrid, nomForm
'--------------------------------------------------------------------------
Public Sub DatagridColumnAutoResize(ByRef oDataGrid As DataGrid, _
                                    ByRef oForm As Form)
Dim i As Integer, iMax As Integer
Dim t As Integer, tMax As Integer
Dim iWidth As Integer
Dim vBMark As Variant
Dim aWidth As Variant
Dim cText As String
Dim oFont As Font

    On Error Resume Next

    
    
    oFont = oForm.Font
    oForm.Font = oDataGrid.Font

    iMax = oDataGrid.Columns.Count - 1
    ReDim aWidth(iMax)

    For i = 0 To iMax   'init maxwidth holder

        aWidth(i) = 0

    Next

    tMax = oDataGrid.VisibleRows - 1

    For t = 0 To tMax   'nombres de lignes

        vBMark = oDataGrid.GetBookmark(t)

        For i = 0 To iMax   'nombres de colonnes

            cText = oDataGrid.Columns(i).CellText(vBMark)
            iWidth = oForm.TextWidth(cText)

            If iWidth + ((12 * Len(cText)) + 220) > aWidth(i) Then

                'quelques ajustements manuels
                aWidth(i) = iWidth + ((12 * Len(cText)) + 220)

            End If

            If t = 0 Then   's'occupe des headers

                iWidth = oForm.TextWidth(oDataGrid.Columns(i).Caption)
                If iWidth + ((12 * Len(cText)) + 220) > aWidth(i) Then

                    aWidth(i) = iWidth + ((12 * Len(cText)) + 220)

                End If

            End If

        Next

    Next

    For i = 0 To iMax   ' Assigne la nouvelle largeur de colonne

        oDataGrid.Columns(i).Width = aWidth(i)

    Next

    oForm.Font = oFont

End Sub

Sources de la même categorie

LABEL ET IMAGE DANS TEXTBOX par gillardg

GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES par Mayzz

EXLISTVIEW- LISTVIEW PERSONNALISÉ par Mayzz

VB6-INNO-WIZARD par cdbi

BOUTON SOUS PLUSIEURS FORME par noah56

Toutes les sources de la catégorie Control

Commentaires et avis

Commentaire de GuyFALESSE le 24/04/2005 15:19:50

Salut,

Hé bien, moi, j'ai trouvé ça super.
Je suis débutant aussi.

@+

Guy FALESSE

Commentaire de gamani06 le 14/07/2005 12:04:08

Ton code ne marche pas

Commentaire de tthiouwz le 13/11/2005 23:17:08

Ton code se base seulement sur la dernière ligne de la datagrid pour décider de la largeur des colonnes. Ca améliore la visibilité c'est sur, mais si l'enregistrement de cette ligne est beaucoup plus petit ou plus grand que les autres ca rend pas super. Le mieux aurait été de faire une moyenne de la largeur avec toutes les lignes puis y ajouter un coefficient comme tu fais ici. Dommage que je n'ai pas le temps pour le faire, du coup je prend ta source, ca me suffira :)

Bonne prog :)

Commentaire de lambdacrash le 08/08/2006 13:07:49

Bonjour,
Je propose plutôt ceci, c'est un morceau de code fait sur le coin du bureau. Il ne gère pas la longueur des headers.

Public Function dataGridAutoResize(oDataGrid As Object)
    Dim i, j As Integer
    Dim dataGridNumRows As Integer
    Dim dataGridNumCols As Integer
    Dim vBMark As Variant
    Dim cellTextLength As Long

    dataGridNumRows = oDataGrid.VisibleRows - 1
    dataGridNumCols = oDataGrid.Columns.Count - 1

    For j = 0 To dataGridNumCols
        cellTextLength = 0
        For i = 0 To dataGridNumRows
            vBMark = DataGrid1.GetBookmark(i)
            If cellTextLength < Len(oDataGrid.Columns(j).CellText(vBMark)) Then
                cellTextLength = Len(oDataGrid.Columns(j).CellText(vBMark))
            End If
        Next
        oDataGrid.Columns(j).Width = 100 * cellTextLength + 70
    Next
End Function

Commentaire de scorpion1970 le 17/06/2008 10:40:28

Public Sub SetGridColumnWidth(grd As MSFlexGrid)
Dim i, j As Integer
Dim lngLongestLen As Long
Dim sLongestString As String
For j = 0 To grd.Cols - 1
    sLongestString = ""
    lngLongestLen = 0
    For i = 0 To grd.Rows - 1
       If Len(grd.TextMatrix(i, j)) > lngLongestLen Then
            lngLongestLen = Len(grd.TextMatrix(i, j))
            sLongestString = grd.TextMatrix(i, j)
        End If
    Next
    grd.ColWidth(j) = grd.Parent.TextWidth(sLongestString) + 10
Next
End Sub