code VB6 pour comboBox

Bonsoir a tous

J'ai plusieurs Form avec des comboBox dans mon programme.

La liste pour les comboBox est dans un fichier txt, celui ci est lue par le code suivant:

Private Sub Form_Load()
Open "C:\Rapport événement\Base de donnée Evenement.txt" For Input As #1
While Not EOF(1)
Line Input #1, l$
Combo1.AddItem (l$)
Wend
Close #1
End Sub

 sa fonctionne très bien !! ouffff

ce que je comprend plus j'ai rajouter une form avec une combobox avec le meme code, sa ne focntionne plus pour cette nouvelle form et pourtant s'est le meme code

Private Sub Form_Load()
Open "C:\Rapport événement\Base de donnée Evenement.txt" For Input As #1
While Not EOF(1)
Line Input #1, l$
Combo1.AddItem (l$)
Wend
Close #1
End Sub

un message me dis "vairable non définie"

Je dois faire quoi?
J'y comprend plus rien, surtout que j'ai rien changer dans le code

Cordialalement

Combo1 a un nom différent dans la seconde form ?

l$ n'est pas particuliairement la meilleur façon de nommé une variable, mais bon.

peut-être que c'est cette variable qui n,est pas définie...

définit toi un string et remplace les l$ par ta variable. Ça pourrait règler ton problème.

De plus, si tu ouvre ces deux form en même, tu peux avoir une erreur parce que tes deux fichiers utilisent le même canal.

Au lieu d'écrire

For input as #1

définit toi une variable et assigne lui freefile.

Dim noCanal as integer

noCanal = freefile

for Input as #noCanal

Voilà ^^

Grand merki jmf0
Génial je comprend mieu
cordialement