Est-il possible d'indexer des TextBox.text ?

Version imprimable

Bonsoir,

Si je pouvais en VB.net indexer TextBox je pourrais écrire une boucle test comme en VB6:
Code:

1 2 3 For n=1 to 50 Lecture(n) = textboxCiteres(n).text next n
Malheureusement je ne trouve pas de solution pour éviter d'attribuer à chaque saisine de textbox un 'change' comme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged Call LectureCitères() End Sub Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged Call LectureCitères() End Sub Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged Call LectureCitères() End Sub 'etc.
C'est long et fastidieux.

Peut-on utiliser la propriété TAG de chaque textbox ?

Si vous avez une idée ?

En vous remerciant.

oui c'est possible :

me.controls("TextBox" & i).text

si pour chaque textbox, c'est la même méthode appelée dans le TextChanged event, il suffit d'affecter la méthode avec une boucle et addhandler
Code:

1 2 3 4 5 6 7 8 9 Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) LectureCitères() End Sub for i = 1 to n addhandler me.controls("TextBox" & i).TextChanged, AddressOf TextBox_TextChanged next
Je n'ai pas testé le code aussi , il peut rester une coquille ou deux mais l'idée est là. Attention j'ai supposé les TB dans la form, si elles sont dans un conteneur, remplacer "me" par le nom du conteneur

par ailleurs, si les controls ne sont pas nombreux ceci marche aussi :
Code:

1 2 3 4 Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) handles Texbox1.TextChanged, Texbox2.TextChanged, Texbox3.TextChanged LectureCitères() End Sub

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Class Form1
    Private DicoTxt As Dictionary(Of Integer, txt) = New Dictionary(Of Integer, txt)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each C As Object In Me.Controls
            If C.GetType.ToString = "System.Windows.Forms.TextBox" Then
                DicoTxt.Add(DicoTxt.Count + 1, New txt(C))
            End If
        Next
        For i As Integer = 1 To DicoTxt.Count
            DicoTxt(i).TX.Text = "Bla bla"
        Next
    End Sub
End Class
Public Class txt
    Public WithEvents TX As TextBox
    Private Sub tx_TextChanged(sender As Object, e As EventArgs) Handles TX.TextChanged
        MessageBox.Show("toto")
    End Sub
    Public Sub New(ByRef T As TextBox)
        TX = T
    End Sub
End Class