Transfert Textbox -> ListBox

LoUsKy Messages postés 16 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 22 août 2002 - 10 août 2002 à 11:36
JeffLC Messages postés 73 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 20 février 2003 - 12 août 2002 à 18:43
Voila , j'ai un textbox avec plusieur ligne , je voudrai rajoute dans une listbox , les ligne , une par une , comment faire ?
merci
LoUsKy
La racaille on the sky

3 réponses

DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013
10 août 2002 à 20:51
Salut,
J'ai une solution simple a te proposer.. Mais ce n'est surement pas la meilleure...
Le but est d'enregistrer ton textbox dans un fichier txt et de le lire ensuite ligne par ligne et d'y ajouter chacune des lignes dans ta listtbox...
Voici comment faire :

Dim ligne as String

Open App.Path & "\FichierTemp.txt" for OutPut as #1
Put#1, , Text1.Text
Close #1

Open App.Path & "\FichierTemp.txt" For Input As #1
While Not EOF(1)
Input #1, ligne
List1.Additem ligne
Wend
Close #1

Kill App.Path & "\FichierTemp.txt"

Voili voilou...
Si t'as des questions n'hésites pas...
A++ et bonne prog...

DeAtH_-_CrAsH
0
LoUsKy Messages postés 16 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 22 août 2002
10 août 2002 à 22:06
Oui , j'y ave pas penser , mais (je suis vraiment un n00b) y aurai pas moyen de suprime le file apres son execution ?

LoUsKy
La racaille on the sky
0
JeffLC Messages postés 73 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 20 février 2003
12 août 2002 à 18:43
Le fichier est supprimé par la commande Kill App.Path & "\FichierTemp.txt"
0
Rejoignez-nous