Sauvegardez les settings de vos form en une ligne de code !

Description

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....) :)

Codes Sources

A voir également

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.