Enregistrement combobox

Résolu
Signaler
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007
-
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
Bonjour,

comment fait on pour enregistrer le contenu d'un combobox



<hr size="2" width="100%">

Merci d'avance

7 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Je suppose que tu es sous vb6 ?
Alors voici un bout de code qui fonctionne.....

Dim i As Integer

Open "c:\tonfichier.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next
Close #1


Si la réponse te conviens merci de l'accepter
3
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Pour charger le fichier ?
Voila, remarque tu mets ce que tu veux en numéro de fichier j'ai mis 3 mais libre à toi d'attribuer un autre numéro

Dim i As Integer
Dim sLine As String

Open "c:\tonfichier.txt" For Input As #3
While Not EOF(3)
Line Input #1, sLine
Combo1.AddItem sLine
Wend
Close #1


Si la réponse te conviens merci de l'accepter
3
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
tu peux utiliser la base de registre ou bien enregistrer dans un fichier...?
dis moi tout :) enfin je te souhaites...
0
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007

c'est pour enregistrer dans un fichier texte
0
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007

merci !
0
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007

oui mais,

pour l'ouvrir, on fait comment ?
0
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Oups la dernière ligne remplace la par Close #3


Si la réponse te conviens merci de l'accepter
0