Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 411 fois - Téléchargée 54 fois
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
9 févr. 2007 à 20:19
merci d'avance .....
2 avril 2004 à 02:19
merci énormément
24 oct. 2002 à 15:52
C exactement le meme code que celui de Nix !
Fait les toi meme mais au moins si tu sais pas les faire dis que c Nix qui l'a fait !
Tiens, prend toi un 1 pour la peine
KaViDee
21 août 2001 à 12:40
21 août 2001 à 12:40
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.