utilisation des Textbox dans une boucle For

Bonjour,

Je cherche à récupérer des valeurs de plusieurs Textbox pour cela j'utilise le code suivant :

Code:

---

1 2 3 4 5

Dim i As Integer For i = 1 To 5 ma_chaine = Me.Controls(TextBox & CStr(i)).Text Next i

---

J'obtiens l'erreur suivante :

Citation:

---

'TextBox' est un type et ne peut pas être utilisé en tant qu'expression.

---

Merci de m'aider

J'imagine que tu fais cela car tes contrôles sont nommé TextBox1, TextBox2, ... ? Auquel cas Textbox devrait être une chaine (entre guillemets). Ceci dit, ce n'est pas la façon la plus propre de procéder...

Citation:

---

Envoyé par zayoub

Bonjour,

Je cherche à récupérer des valeurs de plusieurs Textbox pour cela j'utilise le code suivant :

Code:

---

1 2 3 4 5

Dim i As Integer For i = 1 To 5 ma_chaine = Me.Controls(TextBox & CStr(i)).Text Next i

---

J'obtiens l'erreur suivante :
'TextBox' est un type et ne peut pas être utilisé en tant qu'expression.

---

Salut,

Il manque les Guillemets autour de TextBox :

Code:

---

Me.Controls("TextBox" & CStr(i)).Text

---

Edit : arf Er3van plus rapide que moi, le temps de poster, une réponse entre temps XD

@+
Mat

Citation:

---

Envoyé par Er3van

J'imagine que tu fais cela car tes contrôles sont nommé TextBox1, TextBox2, ... ? Auquel cas Textbox devrait être une chaine (entre guillemets). Ceci dit, ce n'est pas la façon la plus propre de procéder...

---

évidement ! mes TextBox sont nommé Textbox1,Textbox2.... même avec les guillemets ( "Textbox") j'obtiens toujours la même erreur , si vous connaissez une autre méthode je suis prenant . Merci

Bonjour, il vaut mieux faire comme çà à mon avis :

Code:

---

1 2 3 4 5 6 7 8

Dim machaine As String = "" For Each ctrl As Control In Me.Controls If TypeOf ctrl Is TextBox Then Dim textBox As TextBox = CType(ctrl, TextBox) machaine = textBox.Text End If Next

---

Citation:

---

Envoyé par matll

Salut,

Il manque les Guillemets autour de TextBox :

Code:

---

Me.Controls("TextBox" & CStr(i)).Text

---

Edit : arf Er3van plus rapide que moi, le temps de poster, une réponse entre temps XD

@+
Mat

---

Toujours le même problème en utilisant les guillemets :(

Cela m'étonnerait beaucoup que tu aies toujours l'erreur

Citation:

---

'TextBox' est un type et ne peut pas être utilisé en tant qu'expression.

---

Tu en as peut-être toujours une, mais pas celle-là.
As-tu besoin de Cstr() par ailleurs ? A priori son entier sera casté implicitement.

Citation:

---

Envoyé par Gurdil le nain

Bonjour, il vaut mieux faire comme çà à mon avis :

Code:

---

1 2 3 4 5 6 7 8

Dim machaine As String = "" For Each ctrl As Control In Me.Controls If TypeOf ctrl Is TextBox Then Dim textBox As TextBox = CType(ctrl, TextBox) machaine = textBox.Text End If Next

---

---

C'est en effet beaucoup plus propre !

Code:

---

ma_chaine = Me.Controls(TextBox & CStr(i)).Text

---

Pour moi, il doit aussi manquer le cast: Me.Controls sont des controles et donc pas de propriété .Text

Citation:

---

Envoyé par BenoitM

Code:

---

ma_chaine = Me.Controls(TextBox & CStr(i)).Text

---

Pour moi, il doit aussi manquer le cast: Me.Controls sont des controles et donc pas de propriété .Text

---

Chez moi ceci fonctionne sans erreur ni avertissement (et Text proposé en auto-complétion) :

Code:

---

MsgBox(Me.Controls("TextBox1").Text)

---

Pour ma culture personnelle, en quoi la solution de Gurdil est-elle plus propre ? est-ce juste en terme d'optimisation car on vient chercher plusieurs TextBox ? Si l'on n'a besoin que d'un TextBox, la méthode initiale est-elle quand même moins bien que celle de Gurdil ?

Merci

Citation:

---

Envoyé par matll

Pour ma culture personnelle, en quoi la solution de Gurdil est-elle plus propre ? est-ce juste en terme d'optimisation car on vient chercher plusieurs TextBox ? Si l'on n'a besoin que d'un TextBox, la méthode initiale est-elle quand même moins bien que celle de Gurdil ?

---

La méthode est plus propre, car elle évite de passer par le nom du contrôle et vérifie bien qu'on a une TexBox...pour être concret imaginons un idiot passant par là et décidant d'inclure une combobox et de la nommer TextBox4...ça va planter sévère :D

Et si tu as besoin que d'un textbox, tu vas pas te faire chier à parcourir tes controles, tu vas directement faire :

Code:

---

machaine = monTexBox.Text

---

Un exemple tout bête ;), si un jour tu as décide de renommer ton "TextBox1" en "txtNom" par exemple, ton code ne marchera plus à l’exécution... mais par contre il compilera quand même.
Malgré tout la solution de Gurdil ne fait pas vraiment la même chose que zayoub car elle touche à tous les TextBox du formulaire. Peut être que zayoub à d'autres TextBox8, TextBox9 traités séparément (?)

Pascal

Citation:

---

Envoyé par _PascalC_

Malgré tout la solution de Gurdil ne fait pas vraiment la même chose que zayoub car elle touche à tous les TextBox du formulaire. Peut être que zayoub à d'autres TextBox8, TextBox9 traités séparément (?)

---

Ah ce moment là, je vois pas l'intérêt de passer par une boucle, autant récupérer les textes directement avec les instances de textbox.

Citation:

---

pour être concret imaginons un idiot passant par là et décidant d'inclure une combobox et de la nommer TextBox4...ça va planter sévère

---

même pas en plus :mrgreen:, car la propriété ".Text" vient de la classe "Control" dont héritent tous les contrôles graphiques .NET.
Mais bon l'idée est bien là :ccool:

Pascal

Citation:

---

Envoyé par Gurdil le nain

La méthode est plus propre, car elle évite de passer par le nom du contrôle et vérifie bien qu'on a une TexBox...pour être concret imaginons un idiot passant par là et décidant d'inclure une combobox et de la nommer TextBox4...ça va planter sévère :D

Et si tu as besoin que d'un textbox, tu vas pas te faire chier à parcourir tes controles, tu vas directement faire :

Code:

---

machaine = monTexBox.Text

---

---

lol, c'est vrai qu'on peut faire simple pour un seul TextBox :D

Citation:

---

Envoyé par _PascalC_

Un exemple tout bête ;), si un jour tu as décide de renommer ton "TextBox1" en "txtNom" par exemple, ton code ne marchera plus à l’exécution... mais par contre il compilera quand même.
Malgré tout la solution de Gurdil ne fait pas vraiment la même chose que zayoub car elle touche à tous les TextBox du formulaire. Peut être que zayoub à d'autres TextBox8, TextBox9 traités séparément (?)

Pascal

---

En effet merci à tout les deux.

Si tu n'en veux qu'une, oui, tu cherches par ID.

Là ce n'est pas le cas, on cherche finalement TOUTES les Textbox, bien qu'il se trouve que par "chance" (pour ne pas dire absence de normalisation) elles portent des noms proches.
Si demain tu as une Textbox qui s'appellent "CustomerCriteriaTextBox", et bien la première méthode ne marcherait plus, alors que l'autre est générique.

Citation:

---

Envoyé par _PascalC_

même pas en plus :mrgreen:, car la propriété ".Text" vient de la classe "Control" dont héritent tous les contrôles graphiques .NET.
Mais bon l'idée est bien là :ccool:

Pascal

---

Ah ouais pas faux :oops:

Le mieux ne serait pas de mettre toutes les TextBox dont on doit récupéré la valeur sur un panel et de parcourir les controls de ce panel?

Citation:

---

Ah ce moment là, je vois pas l'intérêt de passer par une boucle, autant récupérer les textes directement avec les instances de textbox.

---

Tout pareil :)
Eventuellement on pourrait imaginer isoler les 5 (ou n) TextBox dans un Panel et reprendre ton code en changeant que ceci :

Code:

---

1 2 3 4

For Each ctrl As Control In Me.MonPanel.Controls ... ...

---

Comme ça même si il y a d'autres TextBox dans le formulaire on ne touchera qu'à ceux qui nous intéressent pour le traitement.

Pascal

A mais on est bien d'accord, ça serait mieux.
Et aussi leur donner des noms avec une sémantique derrière...

Citation:

---

Envoyé par _PascalC_

Un exemple tout bête ;), si un jour tu as décide de renommer ton "TextBox1" en "txtNom" par exemple, ton code ne marchera plus à l’exécution... mais par contre il compilera quand même.
Malgré tout la solution de Gurdil ne fait pas vraiment la même chose que zayoub car elle touche à tous les TextBox du formulaire. Peut être que zayoub à d'autres TextBox8, TextBox9 traités séparément (?)

Pascal

---

en fête je veux récupérer les valeurs de "certaine" Textbox et les insérer dans un tableau, j'ai nommé ces TextBox par ordre ascendant (Textbox5 ..... Textbox60) c'est pour ça que j'ai utiliser une boucle For