Voilà c'est tout simple mais efficace.Ce code présente seulement des fonctions, et non pas un programme opérationnel; à vous de l'adapter selon vos besoin.
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
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.