Mémoriser les largeurs de colonnes dbgrid, datagrid

0/5 (2 avis)

Snippet vu 4 954 fois - Téléchargée 31 fois

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

Ajouter un commentaire Commentaires
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 1
10 juil. 2004 à 16:08
merci ! c'est exactement ce que je cherchais
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 1
24 nov. 2003 à 16:22
Depuis le temps que je cherche des fonctions simples pour sauvegarder des paramètres...Savesetting , Getsetting , Deletesetting

rââââh ! c'était tout bête (snif!).

Merci donc infiniment. ;-)

Pour la peine je vais tester ta fonction (même si je n'utilise jamais dbgrid).

A+

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.