Discussion :

[stracoma]

Bonjour tout le monde, étant débutant, j'ai vraiment besoin de votre aide.

Voilà, j'ai une feuille Form_1 où il y 25 Textbox (TextBox1 ,TextBox2, ......,TextBox25). Je veux afficher dans un label la somme des toutes les textbox (sont toutes numériques, pas de soucis) sans passer par TextBox1.text + TextBox2.text + ......+ TextBox25.text.

Est il possible d'utiliser par exemple un for each in ?? , ou autre solution

Merci à vous

[rv26t]

Bonjour,

Il suffit de parcourir la collection de contrôle de type TextBox.

Code :

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

1
2
3
4
        Dim somme As Integer = 0
        For Each txt In Me.Controls.OfType(Of TextBox)()
            somme += Integer.Parse(txt.Text)
        Next

Tous les TextBox de la form sont pris en compte.
Pour être sur de n'utiliser que les 25 TextBox concernés, il peut être judicieux de les placer dans un panel dédié (ex, le code devient : For Each txt In Me.Panel1.Controls.OfType(Of TextBox)()). Ainsi en cas d'évolution pas de surprise.

[stracoma]

Merci infiniment, le code marche à merveille.
Je vais essayer un exemple pour le Panel