Sauvegarde valeurs ComboBox

Bonjour,

j'espère que je pourrais trouver un peu d'aide ici.

Je souhaiterai savoir s'il est possible de sauvegarder les éléments choisi dans des ComboBox, pour que lorsque l'on relance le programme, les ComboBox soient déjà rempli avec les dernières sélections choisi.

Exemple : j'ai deux ComboxBox à remplir, l'une avec le nom et l'autre avec le prénom. Les deux ComboBox récupèrent leur contenu depuis un fichier INI avec différents noms et prénoms. Si je choisi Thomas en prénom et toto en nom et que je ferme le programme. Si je relance le programme, je souhaiterai retrouver Thomas et Toto déjà présélectionnés dans les ComboBox.

merci d'avance.

Bonjour,

Tout est toujours possible en programmation.

Puisqu'il y a déjà un fichier ini, crée une section dedans qui récupère l'Index utilisé dans Combo1 qui devrait être le même pour Combo2.

Ensuite dans Form_Load, là où devraient être remplis les 2 ComboBox, juste à la fin du remplissage, ajoute :

Code:

---

1 2	Combo1.ListIndex = CInt(LectureDepuisINI(.....)) Combo2.ListIndex = CInt(LectureDepuisINI(.....))

---

avec LectureDepuisINI la fonction que tu utilises pour lire les données depuis le fichier INI.

Puis à chaque clic sur Combo1, tu dois inscrire l'Index de l'élément sélectionné dans le fichier INI sous la section créée à cet effet.

D'accord, j'ai du mal à comprendre comment cela va permettre de stocker les choix fait.

Après lecture de cette entrée de la FAQ VB6 tu seras en mesure d'appliquer la procédure que j'ai proposée.

Merci pour le lien.

Le fichier INI aurait cette forme ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

[Nom] n-1=Caul n-2=Noma   [Prénom] p-1=toto p-2=paul   [Index] 1=Combo1 2=Combo2

---

Pour la section [Index], on devrait avoir par exemple :

Code:

---

1 2 3

[Index] Combo1=1 Combo2=1

---

si le second élément est sélectionné, quoiqu'il ne soit pas nécessaire de mettre 2 entrées sous cette section car les indexes doivent être identiques.

Dans Combo1_Click, tu dois mettre :

Code:

---

1 2	EcritDansFichierIni "Index", "Combo1", Combo1.ListIndex, "MonFichier.ini" 'Remplace MonFichier.ini par le chemin complet à ton fichier. EcritDansFichierIni "Index", "Combo2", Combo2.ListIndex, "MonFichier.ini" ' même remarque

---

En plus dans Combo1_Click ajoute : Combo2.ListIndex = Combo1.ListIndex.
Et dans Combo2_Click ajoute : Combo1.ListIndex = Combo2.ListIndex.
Ainsi, à chaque clic sur l'un des ComboBox, l'autre est automatiquement mis à jour.

Dans Form_Load et après le code de remplissage des ComboBox, mets ceci :

Code:

---

1 2	Combo1.ListIndex = CInt(LitDansFichierIni("Index", "Combo1", "MonFichier.ini")) Combo2.ListIndex = CInt(LitDansFichierIni("Index", "Combo2", "MonFichier.ini"))

---