Code VB6 pour comboBox [Résolu]

Signaler
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
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

Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
6
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 !
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
1
Combo1 a un nom différent dans la seconde form ?
Messages postés
228
Date d'inscription
mercredi 13 décembre 2000
Statut
Membre
Dernière intervention
8 août 2011

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à ^^
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

Grand merki [auteur/JMF0/1519380.aspx jmf0]
Génial je comprend mieu
cordialement