COMBOBOX + INI
cs_Richard92
Messages postés
22
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
27 janvier 2006
-
31 août 2005 à 11:52
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 31 août 2005 à 14:19
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 31 août 2005 à 14:19
1 réponse
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
31 août 2005 à 14:19
31 août 2005 à 14:19
salut
ta construction est fausse.
tu utilises le nom comme paramètre, hors tu ne connais ce nom que si tu as 2 fichiers. si c'est le cas, alors c'est à partir de cet autre fichier que tu vas lire ces valeurs.
sinon, ton fichier devrait se présenter ainsi :
"Zinedine","Zidane","10"
"Sylvain","Wiltord","11"
ETC...
dans quel cas, tu lis ensuite le fichier ligne par ligne, tu enregistres chaque valeurs dans un tableau, et tu récupères les valeurs utiles dans ton combo
Private Type JoueursCaracT
Prenom as String
Nom as String
Num as Integer
End Type
Dim MesJoueurs() as JoueursCaracT
'ta fonction
dim i as integer, FF as integer
i = 0
FF = FreeFile
Open App.Path & "\fichier.ini" For Input As #FF
Do While Not EOF(FF)
redim preserve MesJoueurs(i)
Input #FF, MesJoueurs(i).prenom, MesJoueurs(i).nom, MesJoueurs(i).num
combo.additem MesJoueurs(i).prenom
i = i + 1
Loop
Close #FF
ps : choisir le prénom comme "identifiant" n'est jamais une bonne chose.
PCPT
ta construction est fausse.
tu utilises le nom comme paramètre, hors tu ne connais ce nom que si tu as 2 fichiers. si c'est le cas, alors c'est à partir de cet autre fichier que tu vas lire ces valeurs.
sinon, ton fichier devrait se présenter ainsi :
"Zinedine","Zidane","10"
"Sylvain","Wiltord","11"
ETC...
dans quel cas, tu lis ensuite le fichier ligne par ligne, tu enregistres chaque valeurs dans un tableau, et tu récupères les valeurs utiles dans ton combo
Private Type JoueursCaracT
Prenom as String
Nom as String
Num as Integer
End Type
Dim MesJoueurs() as JoueursCaracT
'ta fonction
dim i as integer, FF as integer
i = 0
FF = FreeFile
Open App.Path & "\fichier.ini" For Input As #FF
Do While Not EOF(FF)
redim preserve MesJoueurs(i)
Input #FF, MesJoueurs(i).prenom, MesJoueurs(i).nom, MesJoueurs(i).num
combo.additem MesJoueurs(i).prenom
i = i + 1
Loop
Close #FF
ps : choisir le prénom comme "identifiant" n'est jamais une bonne chose.
PCPT
