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

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

**chrismonoye** · 25/07/2011, 18h58

Envoyé par Gurdil le nain

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

Bonsoir,
sauf erreur, tu testes si le contrôle est de type TextBox, puis tu tentes une conversion, celle ci me semble superflue (il y a peut être une raison, tu me le diras) :

Code :

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

1
2
3
4
5
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                machaine = ctrl.Text
            End If
        Next

et en condensé :

Code :

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

1
2
3
        For Each ctrl In Me.Controls.OfType(Of TextBox)()
            machaine = ctrl.Text
        Next

Ensuite pour différencier les TextBox, si les Panels ne conviennent pas, il y a leur propriété Tag qui peut servir à stocker des données propres au contrôle ou à un groupe de contrôles :
exemple :
si ctrl.Tag = "groupe1" alors je traite sinon je ne traite pas ...
Enfin ceci reste à tester.

**Gurdil le nain** · 26/07/2011, 09h28

La dernière méthode de compile pas chez moi. Mais en effet, le cast est inutile dans ce cas on l'on souhaite récupérer uniquement le texte.

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

**zayoub** · 27/07/2011, 03h28

Salut tout le monde ,
je tiens à vous remercier pour votre aide et de m'avoir accorder votre temps. mais il me reste un tout petit problème

Bon J'ai réussie à récupérer les valeurs de mes Textboxe en utilisant le code que vous m'avez proposer, j'ai fais quelques modifications bien sur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim tab_coti(60) As String 'le tableau ou je dois stocké les valeurs des Textboxe 
Dim Last As Integer = 0 ' une variable de teste 
Dim i As Integer = 0 ' un simple compteur 
 
For Each ctrl As Control In Me.form1.Controls
            If Last = 0 Then
                If TypeOf ctrl Is TextBox Then
                    Dim ValBox As TextBox = CType(ctrl, TextBox)
                    If ValBox.Text = String.Empty Then ' si je rencontre un Textbox vide je sort de la boucle 
                        Last = 1
                        GoTo a
                    Else
                        machaine = ValBox.Text.ToString
                    End If
 
                    If i Mod 2 = 0 Then ' si le Textbox conteint l'année 
                        tab_coti(i) = machaine
                        i = i + 1
                    Else
                        tab_coti(i) = CDbl(machaine) ' si le Textbox contient le montant de cotisation  
                        i = i + 1
                    End If
 
                End If
            End If
 
        Next

Le problème qui se pose c'est que en utilisant cette méthode mon tableau et remplit de la manière suivantes : TB1->TB2->TB7->TB8->TB3-TB4......
Moi je le veux de cette maniéré : TB1->TB2->TB3->TB4.....
La forme de mes Textboxe est en miniature , j'attends vos réponses Merci

**Gurdil le nain** · 27/07/2011, 09h40

Euh alors là, une question :

Pourquoi ne pas utiliser une dataGridView ?

**zayoub** · 27/07/2011, 12h28

Envoyé par Gurdil le nain

Euh alors là, une question :

Pourquoi ne pas utiliser une dataGridView ?

Oui j'ai pensé à ça mais comme je débute sur Asp/vb.net j'ai réussie seulement a afficher les données de ma table avec une requête SELECT mais je vois pas comment faire pour l'insertion

, si vous connaissez une simple méthode pour le faire ou quoi que ce soit qui peut m'aider je suis prenant .

**Shadam** · 28/07/2011, 08h57

Envoyé par zayoub

j'ai réussie seulement a afficher les données de ma table avec une requête SELECT mais je vois pas comment faire pour l'insertion

, si vous connaissez une simple méthode pour le faire ou quoi que ce soit qui peut m'aider je suis prenant .

Pour insérer des lignes sur la DGV ou en base ?

Pour mettre une ligne:

Code :

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

maDGV.Rows.Add(val1, val2, val3, ...)

Pour les récupérer :

Code :

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

maDGV.Rows(n°Ligne)

Pour une cellule en particulier :

Code :

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

maDGV.Rows(n°Ligne).Cells(n°Colonne).Value

**nah666** · 28/07/2011, 09h40

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim tab_coti(60) As String 'le tableau ou je dois stocké les valeurs des Textboxe 
Dim Last As Integer = 0 ' une variable de teste 
Dim i As Integer = 0 ' un simple compteur 
 
For Each ctrl As Control In Me.form1.Controls
            If Last = 0 Then
                If TypeOf ctrl Is TextBox Then
                    Dim ValBox As TextBox = CType(ctrl, TextBox)
                    If ValBox.Text = String.Empty Then ' si je rencontre un Textbox vide je sort de la boucle 
                        Last = 1
                        GoTo a
                    Else
                        machaine = ValBox.Text.ToString
                    End If
 
                    If i Mod 2 = 0 Then ' si le Textbox conteint l'année 
                        tab_coti(i) = machaine
                        i = i + 1
                    Else
                        tab_coti(i) = CDbl(machaine) ' si le Textbox contient le montant de cotisation  
                        i = i + 1
                    End If
 
                End If
            End If
 
        Next