Mémoriser les largeurs de colonnes dbgrid, datagrid

Commenter

Contenu du snippet

Voiçi 2 routines qui vont vous aider à mémoriser les largeurs de colonnes de ce bon vieux DBGrid. En effet rien de plus pénible que de toujours redimensionner les colonnes.
Bon, depuis une procédure Form_Load, ou apres des Refresh Data faites appel à la procédure Largeur_Colonnes. La procedure DBGrid1_ColResize enregistre dans le registre les tailles de chaque colonne.

c'est tout

existe aussi en bleu... heu non... peux marcher apres un reliftage pour DataGrid

Source / Exemple : 


Private Sub DBGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
    On Error Resume Next
    Dim Col() As Column
    Dim NumCols As Integer
    NumCols = DBGrid1.Columns.Count
    ReDim Col(NumCols)
     NomApps$ = "MonApp"    'nom general application
    Section$ = "Largeur_Colonnes_Grilles" 
    For i = 0 To NumCols - 1
        clef$ = "Largeur_Colonne" & i  
        Set Col(i) = DBGrid1.Columns(i)
        SaveSetting _
        NomApps$, Section$, clef$, Col(i).Width
    Next i
End Sub

Public Function Largeur_Colonnes()
    On Error Resume Next
    Dim Col() As Column
    Dim NumCols As Integer
    NumCols = DBGrid1.Columns.Count
    ReDim Col(NumCols)
    NomApps$ = "MonApp"  
    Section$ = "Largeur_Colonnes_Grilles" 
    For i = 0 To NumCols - 1
        clef$ = "Largeur_Colonne" & i   
        largeur = _
        GetSetting(NomApps$, Section$, clef$, valeur)
        If largeur = "" Then Exit For
        Set Col(i) = DBGrid1.Columns(i)
        Col(i).Width = largeur
    Next i
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (m2rtech)