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


Commenter

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

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