matriz de textbox existentes

[doomkel]

Hola,

Tengo un problema, quisiera hacer una matriz de textbox pero solo encuentro ejemplos de como hacer matricez para crearlos, yo lo que necesito es una matriz de textbox que ya existen el el form.

actualmente el codigo lo tengo asi pero es muy repetitivo quisiera ponerlo de forma mas eficiente. intente con un for each pero no se como relacionar el label1 con el textbox1, el label2 con el textbox2 y asi...

este es el ejemplo, de antemano, muchas gracias por su ayuda

Código:

If Val(txTalla1.Text) > 0 Then
            Grid1.Item(15, row1).Value = txCodColore.Text
            Grid1.Item(16, row1).Value = txDesColore.Text
            Grid1.Item(17, row1).Value = lbTalla1.Text
            Grid1.Item(18, row1).Value = txTalla1.Text
End If

If Val(txTalla2.Text) > 0 Then
            Grid1.Item(15, row1).Value = txCodColore.Text
            Grid1.Item(16, row1).Value = txDesColore.Text
            Grid1.Item(17, row1).Value = lbTalla2.Text
            Grid1.Item(18, row1).Value = txTalla2.Text
End If

If Val(txTalla1.Text) > 0 Then
            Grid1.Item(15, row1).Value = txCodColore.Text
            Grid1.Item(16, row1).Value = txDesColore.Text
            Grid1.Item(17, row1).Value = lbTalla3.Text
            Grid1.Item(18, row1).Value = txTalla3.Text
End If

por cierto es en vb.net

[eledgarr]

checate esto

Código:

Dim bandera As Integer

For Each control As Control In Me.Controls
    If TypeOf control Is TextBox Then
        Select Case control.Name
        Case "txTalla1" : bandera = control.TabIndex
        Case "txTalla2" : bandera = control.TabIndex
        Case "txTalla3" : bandera = control.TabIndex
        End Select
    End If
Next