Transfert Textbox -> ListBox

Messages postés
16
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
22 août 2002
-
Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003
-
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

Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
2
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
Messages postés
16
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
22 août 2002

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
Messages postés
73
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 février 2003

Le fichier est supprimé par la commande Kill App.Path & "\FichierTemp.txt"