Code VB6 pour comboBox

Résolu
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010 - 27 janv. 2009 à 20:28
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010 - 27 janv. 2009 à 22:01
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

4 réponses

jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 7
27 janv. 2009 à 21:03
Bonjour,

Tu as probablement utilisé option explicit (tout en haut)  et c'est très bien...
et cela bute donc sur ta variable l que tu as oublié de définir dans ton form_load
Dim l as string

C'est tout !
3
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 1
27 janv. 2009 à 20:53
Combo1 a un nom différent dans la seconde form ?
0
bonjourcheval Messages postés 228 Date d'inscription mercredi 13 décembre 2000 Statut Membre Dernière intervention 8 août 2011
27 janv. 2009 à 21:00
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à ^^
0
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
27 janv. 2009 à 22:01
Grand merki [auteur/JMF0/1519380.aspx jmf0]
Génial je comprend mieu
cordialement
0