Voilà une classe qui permet de sauvegarder toutes les propriétés des contrôles de vos form en 1 ligne de code.
Exemple, vous cochez une checkbox, vous quittez la form, et la checkbox restera cochée quand vous réouvrirez la form.
Pour autoriser la sauvegarde des propriétés d'un controles, mettre "pref" dans la propriété Tag du composant.
Vous pouvz mettre n'importe quoi après "pref", mais çà dot commencer par çà. Sinon, les propriétés ne sont pas sauvegardées.
Autre chose, dans le cas de composants indexés, il faut différencier le Tag (exemple, "pref1", "pref2",...) pour sauvegarder chaque controle indépendemment.
Autre chose, il faut rajouter des lignes de code dans la classe pour ajouter les propriétés à sauvegarder pour vos controles.
Regardez le code, c'est très simple à modifier.
Controles actuellement supportés :
TextBox
CheckBox
OptionButton
ProgressBar
HScrollBar
VScrollBar
DriveListBox
DirListBox
Slider
CommonDialog
FileListBox
TabStrip
pour quelques proriétés MODIFIABLES PAR L'UTILISATEUR DANS LA FORM, comme Text, Value, Min, Path, FileName...etc
Source / Exemple :
Private clsPref As clsIniFile
Private Sub Form_Load()
Set clsPref = New clsIniFile
clsPref.GetFormSettings App.Path & "\pref.ini", Me 'charge les settings
End Sub
Private Sub Form_Unload(Cancel As Integer)
clsPref.SaveFormSettings App.Path & "\pref.ini", Me 'sauvegarde les settings
Set clsPref = Nothing 'décharge la classe
End Sub
'C'est tout !!
Conclusion :
Rien à voir avec la première source postée....
C'est à modifier en fonction de vos besoins (rajouter des composants....) :)
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.