Discussion :

[yaume91]

Bonsoir,

J'ai 5 textbox qui s'appelle comme ceci

Jojo1textBox
Jojo2textBox
Jojo3textBox
Jojo4textBox
Jojo5textBox

Je voudrais pouvoir faire ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i=1 To 5 step 1
 
JojoitextBox.text = mafonction(i)
 
Next i

mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

JojoitextBox.text

ne fonctionne pas, j'ai essayé aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Jojo+i+textBox.text

mais ca ne marche pas non plus, y a t il une astuce

Merci

[wallace1]

Bonsoir,

On ne parle pas d'astuce mais de bons sens lorsqu'on a au minimum lu des cours de programmation VBNET (POO : objets, classes, ...etc.....) !!!!!!!!

Donc 2 solutions :

1- Tu stockes les Textboxes dans une List(Of TextBox) déclaré au niveau de la classe (ex : Mainform) et instanciée au niveau de ton constructeur après l'instanciation de tout tes contrôles de ce mainform
2- Tu parcours les contrôles de ton mainform pour trouver le nom de chacun, ainsi tu travailles avec une valeur de type String (= la propriété .Name)

Bon courage, j'espère que ça t'incitera à acquérir certaines notions en lisant quelque cours !

PS : personnellement, je préfère la 2ème solution.

A+

[yaume91]

Bonsoir,

Merci, j'ai lu certains cours , mais cela n'est pas aussi intuitif pour tous le monde.
Je ne sais pas quel age vous avez mais je suis certainement beaucoup plus vieux que vous, et a un certain age ce n'est pas aussi simple de comprendre les rouages de l'informatique, d'autant plus que ce n'est pas du tout mon métier.
C'est justement pour cela que je viens sur ce forum , afin de trouver l'aide ou l'explication qui m'aidera à comprendre le fonctionnement, j’avoue que le coté programmation orienté objet n'est pas d'une évidence pour moi (cela n'existait pas à mon époque).

Voilà ce que j'ai essayé de corriger , ou de tester , mais qui ne fonctionne pas (pas d'erreur de compilation mais rien ne s'affiche dans mes textbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i=1 To 5 step 1
     Dim MyTextBox As New TextBox
     Dim TextBoxName As String = "Matextbox" & i.ToString & "jojo"
     MyTextBox.Name = TextBoxName
     MyTextBox.Text = "ce que je veux ecrire"
Next i

Matextbox1jojo à Matextbox5jojo sont des textbox que j'ai créé dans mon "Mainform"

si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Matextbox1jojo .text = "ce que je veux ecrire"

cela fonctionne

Merci pour votre aide

[wallace1]

Perso (sociable mais pas charitable) je suis bientôt à la retraite et je ne suis pas développeur de métier.......... brefff.....

Il y a certainement d'autres personnes qui se feront un plaisir de te donner cette réponse que tu attends avec impatience mais je reste convaincu que tu reviendras avec autant de questions la prochaine fois...... Je ne prendrais pas ce temps pour te dispenser une formation en ligne.


Bon courage.

++

[yaume91]

Tu n'es pas développeur, mais administrateur système c'est quand même plus proche de développeur que boulanger.
Que tu ne veuilles pas aider un débutant , tu en as le droit, pas de souci.
Je pensais tout de même qu'un forum était là pour s'entraider, entre autre aider les débutants.
Si tu n'en as pas envie libre à toi.

Pour ce qui est des cours ou des explications, certaines personnes on la pédagogie adapté à d'autres et parfois pas, parfois la vulgarisation aide à la compréhension de certains plutot qu'un grand cours magistral.
Bref nous ne sommes pas tous égaux.

Et pour ma part, je ne suis pas venu pour que l'on me donne les lignes que je dois mettre dans mon code, ce que visiblement tu as l'air de penser (dommage).
J’espère quand même avoir démontrer avoir cherché.
Et oui il y a de grande chance que je revienne ici poser d'autres questions, car j'ai toujours apprécié les réponses que j'ai eu

[hindime]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim BOX(5) as textbox
 
for each ctrl as control in me.controls
  if typeof ctrl is textbox then box(ctrl.tag) = ctrl
next
 
for i = 0 to 4
   box(i).text = " mjkkkkkkkk"
next i

Dans la définition des textbox mettre un code index dans la propriété TAG de 0 à 4.