recorrer textbox

[aRTeX]

amigos, he buscado muchos codigos para recorrer los textbox. pero ninguno me ha funcionado.

creo los textbox con este codigo.

Código:

 Dim label As New Label
                    Dim textbox As New TextBox


                    textbox.ID = "txt" & tabla.Rows(i)("Campo").ToString()
                    label.ID = "lbl" & tabla.Rows(i)("Campo").ToString()
                    label.Text = tabla.Rows(i)("Campo").ToString()
                    Panelform.Controls.Add(label)
                    Panelform.Controls.Add(textbox)

y cuando quiero recorrer para obtener los datos, no me funciona ningún código.

me pueden ayudar.

gracias.

[haggenx]

y con que código los recuperas?

[aRTeX]

ese es el tema, que no lo puedo recuperar, he utilizado muchos codigos.

todos se parecen al que este.

Código:

  
Dim myControl As Control, i As Integer

            For Each myControl In PanelForm.Controls

            
                If (TypeOf (myControl) Is TextBox) Then
                    Dim a = CType(myControl, TextBox).ID
                    objmov.Valor = CType(myControl, TextBox).Text
                End If
           Next

[haggenx]

Una manera que se me ocurre (no está probado, es solo una idea) es usar un array de controles, llenarlo y luego recorrerlo para recuperar tus datos:

Llenar tus controles, tal vez convenga ponerlos como globales

Dim i As Integer
Dim label(4) As New Label
Dim textbox(4) As New TextBox

For i=0 To 3

textbox(i).ID = "txt" & tabla.Rows(i)("Campo").ToString()
label(i).ID = "lbl" & tabla.Rows(i)("Campo").ToString()
label(i).Text = tabla.Rows(i)("Campo").ToString()

Panelform.Controls.Add(label(i))
Panelform.Controls.Add(textbox(i))

Next

Para recuperar los datos

For i=0 To 3
objmov.Valor = TextBox(i).Text
Next