Combobox et fichier txt
JLV1975
Messages postés
55
Date d'inscription
jeudi 16 octobre 2003
Statut
Membre
Dernière intervention
15 septembre 2006
-
17 oct. 2003 à 13:17
tresorsdevie Messages postés 135 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 20 juillet 2013 - 17 oct. 2003 à 15:50
tresorsdevie Messages postés 135 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 20 juillet 2013 - 17 oct. 2003 à 15:50
1 réponse
tresorsdevie
Messages postés
135
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
20 juillet 2013
17 oct. 2003 à 15:50
17 oct. 2003 à 15:50
Combo1.Clear
Open cheminfichier For Input As #1
Do While Not EOF(1) 'verifie si la fin du fichier (1)est atteinte
Line Input #1, ligne 'lit la ligne du fichier 1 et la stock dans la variable ligne
Combo1.AddItem ligne 'ajoute la valeur de la variable dans combo1
Loop
'pour le charger dans un texte box fait :
'Open chemin For Binary As #1
'Text1.Text = Input(LOF(1), 1)
'Close #1
a+, chris
La nature, un atout pour la vie
http://tresorsdevie.free.fr
Programmation VB.NET
http://membres.lycos.fr/betatestvb
Open cheminfichier For Input As #1
Do While Not EOF(1) 'verifie si la fin du fichier (1)est atteinte
Line Input #1, ligne 'lit la ligne du fichier 1 et la stock dans la variable ligne
Combo1.AddItem ligne 'ajoute la valeur de la variable dans combo1
Loop
'pour le charger dans un texte box fait :
'Open chemin For Binary As #1
'Text1.Text = Input(LOF(1), 1)
'Close #1
a+, chris
La nature, un atout pour la vie
http://tresorsdevie.free.fr
Programmation VB.NET
http://membres.lycos.fr/betatestvb