Sauver les configuration

Soyez le premier à donner votre avis sur cette source.

Vue 3 469 fois - Téléchargée 317 fois

Description

Bon bin voila sa peu sauver toute les option d'une forme en kelke ligne de code

Ce qui est bien avec ce code c'est kon le tape une fois et même si on ajoute des config il est valide

Source / Exemple :


Private Type LesOption
LeCTLC(0 To 1000)
LeCTLV(0 To 1000)
End Type
Dim LesConfig As LesOption
Private Sub Command1_Click()
SaveAllConfig Me
End Sub
Private Sub Command2_Click()
LoadAllConfig Me
End Sub
Private Sub SaveAllConfig(LaForme As Form)
On Error Resume Next
Dim ctl As Control
Dim bDoIt As Boolean
Dim i As Long
For Each ctl In LaForme.Controls
LesConfig.LeCTLC(i) = ctl.Text
LesConfig.LeCTLV(i) = ctl.Value
i = i + 1
Next ctl
Open App.Path & "\Save2.ini" For Binary As #1
    Put #1, 1, LesConfig
Close #1
End Sub
Private Sub LoadAllConfig(LaForme As Form)
On Error Resume Next
Open App.Path & "\Save2.ini" For Binary As #1
    Get #1, 1, LesConfig
Close #1
Dim ctl As Control
Dim bDoIt As Boolean
Dim i As Long
For Each ctl In LaForme.Controls
ctl.Text = LesConfig.LeCTLC(i)
ctl.Value = LesConfig.LeCTLV(i)
i = i + 1
Next ctl
End Sub

Conclusion :


Ajouter des Type et des propriété pour en avoir d'avantage

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

FloZix
Messages postés
42
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
24 juin 2008

Trop fort exactement ce qui me faut. Merci beaucoup
Pour détecter c'est
if typeof ctl is Combobox then
Codé comme un porc!!
C'est bien
Super !
Mais est-il possible de choisir le type de contrôle dont on veut sauvegarder la config. et non pas tout les contrôles ?

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.