récupération champs txtbox crées dynamiquement

Bonjour à tous,

Je bloque actuellement sur le problème suivant: j'ai une liste à choix multiple et un bouton OK. Lorsque l'on clique sur le bouton OK, on procède à la création d'autant de txtbox que de valeurs selectionnées dans la liste et on affiche un nouvo bouton Next. Lors du clic sur Next je voudrais pouvoir récupérer les valeurs contenues dans mes txtbox mais comme elles ont été faites dynamiquement, je ne sais pas du tout comment procéder :?

Quelqu'un aurait-il une idée pour palier à mon problème svp ?

Merci

La question a été traitée à plusieurs reprises sur le forum, fais une recherche ;)

Quand tu crées les TextBox dynamiquement, il faut les "sauvegarder" quelque part, dans une List ou un Dictionary (plus pratique pour accéder à un élément par son nom) par exemple:

Code:

---

1 2 3 4 5 6 7 8

Dim controls As New Dictionary(Of String, TextBox) Dim t As TextBox t = New TextBox() ... ' (Initialisation de t) ... controls.Add(t.Name, t)

---

Ensuite, pour accéder à celle qui s'appelle "toto":

Code:

---

1 2 3

Dim t As TextBox t = controls("toto")

---

Note: si tu as non seulement des TextBox mais aussi d'autres types de contrôle, déclare plutôt controls en Dictionary(Of String, Control). Pas de changement pour l'ajout, mais il faudra convertir la valeur récupérée:

Code:

---

1 2 3

Dim t As TextBox t = CType(controls("toto"), TextBox)

---

Merci beaucoup pour ton aide, cependant je rencontre une erreur, voici mon code :


Je déclare le dictionary tout en haut de ma page pour pouvoir y avoir acces dans plusieurs sub:

Code:

---

1 2 3

Private dictio As New Dictionary(Of String, TextBox)

---

Ensuite dans ma sub de clic sur bouton OK j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For i = 0 To Me.ListBox2.Items.Count - 1 If Me.ListBox2.Items.Item(i).Selected Then Dim txtbox(i) As TextBox txtbox(i) = New TextBox txtbox(i).ID = Me.ListBox2.Items.Item(i).Value   'MsgBox(txtbox(i).ID) dictio.Add(txtbox(i).ID, txtbox(i))     Me.Panel2.Controls.Add(lbl(i)) Me.Panel2.Controls.Add(dictio(txtbox(i).ID))   End If Next

---

Ensuite une fois les textbox remplis, lors du clic sur Next j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 0 To Me.ListBox2.Items.Count - 1 If Me.ListBox2.Items.Item(i).Selected Then Dim t As TextBox   'MsgBox(Me.ListBox2.Items.Item(i).Value) t = dictio(Me.ListBox2.Items.Item(i).Value) End If   Next

---

Comme tu peux le voir, les boucles sont identiques dans les 2 sub, mais quand il exécute le t = dictio(Me.ListBox2.Items.Item(i).Value) il me dit : The given key was not present in the dictionary alors que les msgbox me montrent que l'ID devrait bien exister dans le dictionary.

As-tu une idée sur la raison de ce plantage ?

Merci

Quand tu fais "Dim txtbox(i) As TextBox", ça déclare un tableau de TextBox de taille i... ce n'est pas ce que tu souhaites je pense ! Il faut mettre cette instruction avant la boucle et remplacer i par Me.ListBox2.Items.Count.
D'ailleurs tu n'as pas besoin d'un tableau, tu peux utiliser une simple variable:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For i = 0 To Me.ListBox2.Items.Count - 1 If Me.ListBox2.Items.Item(i).Selected Then Dim txtbox As TextBox txtbox = New TextBox txtbox.ID = Me.ListBox2.Items.Item(i).Value   'MsgBox(txtbox.ID) dictio.Add(txtbox.ID, txtbox)     Me.Panel2.Controls.Add(lbl(i)) Me.Panel2.Controls.Add(dictio(txtbox.ID))   End If Next

---

Je ne sais pas si c'est ça la cause du problème, mais ça me semble mieux comme ça...

Non effectivement cela ne règle pas le problème mais j'apprécie ton aide et la clarté de tes réponses merci :D

Qd tu cliques sur Next, ça crée un PostBack et tes textbox précédemment créés sont perdues je pense

et c'est possible de remédier à ça ?:roll: