[vb.net] définir un textbox dynamiquement

bonjour, j'ai un petit soucis pour définir une variable dans le code afin de définir un objet dynamiquement

Code:

---

1 2 3 4 5

For i = 1 To 5 Step 1 Dim txtContent As TextBox = "textbox" & i GrammarCheck(txtContent) Next

---

voila, j'ai un problème de type car mon txtContent est une texte box or ma boucle ne génère que un string, le nom de la textbox en fait.

Salut,
Je ne suis pas bien sur de comprendre ton probleme. De ce que j'ai compris, "textbox" & i est un string (normal) et tu essayes de l'assigner à un objet de type Textbox... Pourquoi n'assignes tu pas la string à la propriété Name de ton textbox ?

@+

ben ça marche pas, j'ai essayé, en fait je mi prend mal car je ne sait pas comment faire, voici se que je veux.

Je veux une boucle qui appel une fonction 5 fois, mais qui l'appel pour 5 textbox différente, or je ne sais pas le faire, moi je sais mettre une boucle qui donne un string [textebox1, textebox2, textebox3, textebox4, textebox5] mais ça reste du string, non un texte box.
C'est plus clair
ma boucle doit faire ça au final :

Code:

---

1 2 3 4 5 6

fonction(textbox1) fonction(textbox2) fonction(textbox3) fonction(textbox4) fonction(textbox5)

---

ben avant d'appeller ta fonction qui prend une textbox en argument, tu fais une autre boucle:

Code:

---

1 2 3 4 5

for each ctrl as control in myForm.Controls if ctrl.name = taString then function(directcast(ctrl, textbox)) endif next

---

essaye pour voir :?:

arf, ben déja j'ai plein d'erreurs se qui donne ça pour ce que je comprend :

Code:

---

1 2 3 4 5 6

Dim MyString As String For Each ctrl As Control In Me.Controls If (ctrl.Name = MyString) Then function(directcast(ctrl, textbox)) End If Next

---

ensuite, je vois pas à quoi sert "function(directcast(ctrl, textbox)) " et en plus sa sort en erreur.

a ok, c'est pour convertir mon string en control ?

directcast(ctrl, textbox) convertie le control en textbox mais comme je n'ais pas la declaration de ta fonction, j'ai juste déduis qu'elle prenait une textbox en parametre. Si ce n'est pas le cas c'est normal que ca genere une erreur.

Ce que je fais c'est que je boucle sur les controls dans ton form et s'il y en a un dont le nom est égal a ta String (textbox1, texbox2 ...) je le passe en parametre a ta fonction en faisant un cast. C'est ca que tu veux faire non ?

j'ai essayé ça, sans succès :

Code:

---

1 2 3 4 5

For i = 1 To 5 Step 1 Dim txtContent As TextBox = DirectCast("textbox" & i, TextBox) GrammarCheck(txtContent) Next

---

edite : Oui elle prend un textbox en paramètre, c'est une fonction qui lance la correction orthographique de word pour le champs donnée et moi je veux que ça le fasse pour chaque champs, d'ou ma boucle :wink:

As tu regarde mon code plus haut :?: :wink:

Tu essayes de convertir du text en textbox, ca ne marchera jamais !

Tu dois faire:

Code:

---

1 2 3 4 5 6 7 8 9 10

for i as integer = 0 to 5   dim textboxName as string = "textbox" & i.toString for each ctrl as control in myForm.Controls if ctrl.Name = textboxName then TaFunction (directcast(ctrl, textbox)) endif next   next

---

a oki ça marche, c'est que j'ai nommé mes textbox TextBox1 et non textbox1.
Par contre c'est pas un peu long de vérifier pour tous les control, moi ça va en faire 50 multiplier par une boucle qui va monter au 20, ça nous fait 1000 vérifications, c'est pas un peu beaucoup ? j'en sais rien :D
merci au fait !!

Ben sinon ne vérifie pas le nom... :

Code:

---

1 2 3 4 5

for each ctrl as control in myForm.Controls If TypeOf (ctrl) Is TextBox Then TaFunction (directcast(ctrl, textbox)) End If next

---

et pour etre chiant, on peut pas vérifier les control textbox uniquement ?
sinon un grand merci monsieur :D

si on peut, regarde mon code ci-dessus.
allez je te le redonne:

If TypeOf (ctrl) Is TextBox Then

oublie pas de cliquer sur Resolu

:D