Mémoriser les largeurs de colonnes dbgrid, datagrid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 585 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de ld40
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
 -
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+
Signaler Commenter la réponse de Philippe734
Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
 -
merci ! c'est exactement ce que je cherchais
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)