Réduire le nombre de lignes de code

zazsze Messages postés 54 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 15 août 2007 - 12 mars 2003 à 20:44
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 13 mars 2003 à 06:38
En appuyant sur un bouton de commande le contenu d un fichier TXT se copie dans 6 textbox. J'ai été obligé d'écrire le code suivant :
Open "C:\Carte.txt" For Input As #1
Line Input #1, tmp
Text1 = tmp
Line Input #1, tmp
Text2 = tmp
Line Input #1, tmp
Text3 = tmp
Line Input #1, tmp
Text4 = tmp
Line Input #1, tmp
Text5 = tmp
Line Input #1, tmp
Text6 = tmp
Line Input #1, tmp
Je souhaiterai savoir s'il n'y avait pas moyen de simplifier toutes ces lignes de code.
Merci à tous

4 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
12 mars 2003 à 20:48
Si, si tu fait un groupe de contrôle avec tes TextBox (même nom, mais propriété Index différentes pour chacun), et tu récupère le texte avec une boucle for...

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]
0
zazsze Messages postés 54 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 15 août 2007
12 mars 2003 à 22:11
Etant débutant, pourrais-je avoir plus d'explications concernant l'utilisation de la boucle for. Pour ce qui est du reste c'est bon. Si on pouvait me dire quelles lignes de codes il fallait que j'écrire ce serait encore mieux
merci
0
zazsze Messages postés 54 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 15 août 2007
12 mars 2003 à 23:42
J'ai toujours pas trouvé ?
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
13 mars 2003 à 06:38
Donc, renomme tout tes contrôles TextBox en "TXT_Texte" en changeant à chaque fois le numéro d'index. Puis :

Open "C:\Carte.txt" For Input As #1
For int_for1 = 0 to 5
Line Input #1, tmp
TXT_Texte(int_for1).Text = tmp
Next int_for1
close #1

Voilà ;-p

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]
0
Rejoignez-nous