Discussion :

[excalybur]

Bonsoir,

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

Code :

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

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 :

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

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.

[Delaney]

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 :

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

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 :

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

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

[Thumb down]

Bonjour,

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