Charger, lire, enregistrer les informations d'une liste déroulante dans un fichier texte

Contenu du snippet

Utiliser un fichier TXT avec une liste déroulante afin d'y sauvegarder des informations

Source / Exemple :


Private Sub Form_Load() 'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
Open App.Path & "\fichier.txt" For Input As #1
While Not EOF(1)
Input #1, temp
If temp <> "" Then
ListBox.AddItem temp
End If
Wend
Close
End Sub

Private Sub Command1_Click() 'Exemple d'évènement
Open App.Path & "\fichier.txt" For Append As #1 'Ouvre fichier.txt et y rajoute la nouvelle donnée
Write #1, ListBox.Text
ListBox.AddItem (ListBox.Text) 'Met à jour la ListBox
Close
End Sub

Conclusion :


Améliorations prévues (pour plus tard :-p)

A voir également

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.