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
[ Lien ]Programmation VB.NET
[ Lien ]