Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 755 fois - Téléchargée 29 fois
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
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.