utilisation des Textbox dans une boucle For

**zayoub** · 25/07/2011, 13h40

Bonjour,

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

Code :

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

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.

Merci de m'aider

**Er3van** · 25/07/2011, 13h48

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...

**matll** · 25/07/2011, 13h50

Envoyé par zayoub

Bonjour,

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

Code :

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

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 :

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

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

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

@+
Mat

**zayoub** · 25/07/2011, 13h55

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

**Gurdil le nain** · 25/07/2011, 13h56

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

Code :

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

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

**zayoub** · 25/07/2011, 13h58

Envoyé par matll

Salut,

Il manque les Guillemets autour de TextBox :

Code :

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

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

**Er3van** · 25/07/2011, 14h02

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

'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.

Envoyé par Gurdil le nain

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

Code :

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

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 !

**BenoitM** · 25/07/2011, 14h08

Code :

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

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

**matll** · 25/07/2011, 14h14

Envoyé par BenoitM

Code :

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

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 :

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

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

**Gurdil le nain** · 25/07/2011, 14h22

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

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

Code :

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

machaine = monTexBox.Text

**_PascalC_** · 25/07/2011, 14h23

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

**Gurdil le nain** · 25/07/2011, 14h26

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.

**_PascalC_** · 25/07/2011, 14h26

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

, 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à

Pascal

**matll** · 25/07/2011, 14h26

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

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

Code :

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

machaine = monTexBox.Text

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

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.

**Er3van** · 25/07/2011, 14h27

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.

**Gurdil le nain** · 25/07/2011, 14h31

Envoyé par _PascalC_

même pas en plus

, 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à

Pascal

Ah ouais pas faux

**BenoitM** · 25/07/2011, 14h34

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?

**_PascalC_** · 25/07/2011, 14h34

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 :

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

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

**Er3van** · 25/07/2011, 14h36

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

**zayoub** · 25/07/2011, 15h04

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

utilisation des Textbox dans une boucle For

VB.NET

Discussions similaires

Partager

Partager