Sauvegarder une listbox ou une combobox dans un fichier (sauver et ouvrir)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 968 fois - Téléchargée 89 fois


Contenu du snippet

Faites un Form(Form1) avec 2 Bouton(Command1 et Command2), un ListBox ou ComboBox

Source / Exemple :


Private Sub Command1_Click()
    Call Ouvreliste(Me.ListBox1)
End Sub

Private Sub Command2_Click()
    Call Sauveliste(Me.ListBox1)
End Sub

Private Sub Sauveliste(LaListe As ListBox)
    Open App.Path & "\" & "laliste.lst" For Output As 1
    For i = 0 To List1.ListCount - 1
        LaListe.ListIndex = i
        Print #1, LaListe.Text
    Next
    Close 1
End Sub
Private Sub Ouvreliste(LaListe As ListBox)
    Open App.Path & "\" & "laliste.lst" For Input As 1
    Do Until EOF(1)
        Line Input #1, Str
        LaListe.AddItem Str
    Loop
    Close 1
End Sub

A voir également

Ajouter un commentaire

Commentaires

je voudrais que la liste se charge au demmarage de l'application,alors je le met dans form_load
mais si l'application est ouverte la premiere fois ça plante.... que faire :(
C'est normal, nix a definit le n° de fichier "1", si ce num est pas libre, pas fermé, etc : erreur

La solution :
nFic = FreeFile

puis :
remplacer partout le 1 par nFic

et enfin faire (si possible) close au lieu de close 1 ou close nFic pour être sur de fermer tout les fichiers.
Mettre close (tout court) dans dans le paragraphe de gestion d'erreur de la fonction...
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
Code interessant mais meme remarque que l'autre source (au titre identique) Pas de verification des doublons. Le fichiers LST prends plus de place qu'il ne devrait donc.
Tomas_R
Messages postés
4
Date d'inscription
dimanche 31 juillet 2005
Statut
Membre
Dernière intervention
9 juillet 2011
-
Petit programme qui me semble sympas s'il fonctionne! Mais la création de la "ListBox1" pour faire l'appel des variables par "Me.listBox1" aurait-été bien venue pour les débutants!
Merci Tomas
Commenter la réponse de AnAcOnDa

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.