Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 818 fois - Téléchargée 45 fois
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
30 avril 2011 à 18:32
29 juin 2006 à 17:21
14 avril 2006 à 02:42
14 avril 2006 à 02:12
14 avril 2006 à 02:12
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.