Ver Mensaje Individual
  #8 (permalink)  
Antiguo 31/05/2011, 16:00
clarkpler
 
Fecha de Ingreso: febrero-2010
Mensajes: 60
Antigüedad: 15 años, 1 mes
Puntos: 0
Respuesta: Nombre de Texbox dinamico

Gracias amigo, funciono, lo modifique para que guarde todas las cajas de texto, quedo de esta forma:

Código vb:
Ver original
  1. Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
  2.  
  3.         ' Creas tu Arraylist 
  4.        Dim lista As New ArrayList()
  5.  
  6.         ' Recorremos la colección de controles del formulario
  7.        For Each ctrl As Control In Me.Controls
  8.             ' Si el tipo de control es un TextBox
  9.                If TypeOf ctrl Is TextBox Then
  10.                 ' Si se llama "ed1D1" ó "ed1D2" ó "ed1D3"
  11.                Dim i As Integer
  12.                 For i = 1 To frmDatIni.gdl
  13.                     If ctrl.Name = "ed1D" & i Then
  14.                         ' Lo almacenamos en el arraylist
  15.                        lista.Add(ctrl.Text)
  16.                         'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
  17.                    End If
  18.                     If ctrl.Name = "ed2D" & i Then
  19.                         ' Lo almacenamos en el arraylist
  20.                        lista.Add(ctrl.Text)
  21.                         'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
  22.                    End If
  23.                     If ctrl.Name = "ed3D" & i Then
  24.                         ' Lo almacenamos en el arraylist
  25.                        lista.Add(ctrl.Text)
  26.                         'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
  27.                    End If
  28.                     If ctrl.Name = "ed4D" & i Then
  29.                         ' Lo almacenamos en el arraylist
  30.                        lista.Add(ctrl.Text)
  31.                         'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
  32.                    End If
  33.                 Next
  34.             End If
  35.         Next
  36.         MessageBox.Show(lista(5))
  37.     End Sub


No se si estará bien, pero veo que solo me está almacenando en una fila; como puedo hacer para almacenar también en varias filas. lo que quiero generar es una matriz rectangular.