Verificar Evento de un Arrays de Texto

hola

no se si has verificado que los eventos tienen un parametro de nombre
sender, bueno en este esta la clave para detectar quien lanza el
evento

TextChanged
http://msdn.microsoft.com/es-es/lib...extchanged(VS.80).aspx

comov eras la firma del evento es:

Private Sub textbox_TextChanged(sender As Object, e As EventArgs)

Dim text As TextBox = CType(sender, TextBox)

End Sub

en este ejemploveras como casteas el sender que es un objet a TextBox,
y es este el que lanza el evento

tambien veo que cuando armas los controls dinamicao no estas asignando
los handler a los eventos

AddHandler y RemoveHandler
http://msdn.microsoft.com/es-es/library/6yyk8z93(VS.80).aspx

en tu caso deberias agregar

AddHandler txtCampos(i).TextChanged, AddressOf Me.textbox_TextChanged

de esta forma atachar cada textbox que creas dinamicamente al metodo
del evento, todos lanzaran el mismo codigo

- despues una consulta, por alguna razon no has suado una lista
generica, son mucho ams simpes de usar que los array, ademas veo que
agregas los controles al formualrio, entocnes no necesitas de un array
o lista

- el control Label no necesita de un TabIndex, ya que este no toma
foco como control, el tabindex define como te moveras por lo controles
al presionar el tab, pero si el control no toma foco no es necesario
definirlo


revise el codigo y lo adapte como lo haria, por ahi te de alguna idea,
analizalo por ahi te es util, al menso esta algo ams simple el codigo

Public Sub CrearCampos(ByVal cols As Integer)

Dim previousTextbox As TextBox
Dim previousLabel As label
Dim firstTextbox As TextBox

For i As Integer = 0 To cols - 1

Dim newLabel As New Label
Dim newTextbox As New TextBox

newTextbox.TabIndex = i

newLabel.Name = string.Format("LabelCampo_{0}", i)
newTextbox.Name =string.Format("txtCampo_{0}", i)

newTextbox.Size = New System.Drawing.Size(150, 20)

If i = 0 Then
newLabel.Location = New System.Drawing.Point(7,27)
newTextbox.Location = New System.Drawing.Point(7, 41)
firstTextbox = newTextbox
Else
newTextbox.Location = previousTextbox.Location
newTextbox.Left += 150
newLabel.Location = previousLabel.Location
newLabel.Left += 150
End If

AddHandler newTextbox.TextChanged, AddressOf Me.textbox_TextChanged

Me.Controls.Add(newTextbox)
Me.Controls.Add(newLabel)

previousTextbox = newTextbox
previousLabel = newLabel

Next

firstTextbox.Focus()

End Sub

Private Sub textbox_TextChanged(sender As Object, e As EventArgs)
Dim text As TextBox = CType(sender, TextBox)

End Sub


saludos