Sauver les configuration

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

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 (cs_max12)