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

Bueno ahora que ya se crean las cajas de texto, como puedo hacer para almacenar los datos en un array, al presionar un botón.
Código vb:
Ver original
  1. Public element1 As Array
  2.     Private Sub frmMatTrans_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3.  
  4.         Dim i As Integer
  5.  
  6.         'Bucle para crear los labels y ponerle algunas propiedades  
  7.        For i = 1 To frmDatIni.gdl
  8.             'Crear nuevo ed1
  9.            Dim ed1D As New TextBox
  10.             'Propiedades
  11.            ed1D.Width = 20
  12.             ed1D.Height = 20
  13.             ed1D.Enabled = True
  14.             ed1D.Left = i * 25
  15.             ed1D.Top = 50
  16.             ed1D.Name = "ed1D" & i
  17.             'El control a la coleccion de controles del Form
  18.            Me.Controls.Add(ed1D)
  19.             'Crear nuevo ed1
  20.            Dim ed2D As New TextBox
  21.             'Propiedades
  22.            ed2D.Width = 20
  23.             ed2D.Height = 20
  24.             ed2D.Enabled = True
  25.             ed2D.Left = i * 25
  26.             ed2D.Top = 75
  27.             ed2D.Name = "ed2D" & i
  28.             'El control a la coleccion de controles del Form
  29.            Me.Controls.Add(ed2D)
  30.             'Crear nuevo ed1
  31.            Dim ed3D As New TextBox
  32.             'Propiedades
  33.            ed3D.Width = 20
  34.             ed3D.Height = 20
  35.             ed3D.Enabled = True
  36.             ed3D.Left = i * 25
  37.             ed3D.Top = 100
  38.             ed3D.Name = "ed3D" & i
  39.             'El control a la coleccion de controles del Form
  40.            Me.Controls.Add(ed3D)
  41.             'Crear nuevo ed1
  42.            Dim ed4D As New TextBox
  43.             'Propiedades
  44.            ed4D.Width = 20
  45.             ed4D.Height = 20
  46.             ed4D.Enabled = True
  47.             ed4D.Left = i * 25
  48.             ed4D.Top = 125
  49.             ed4D.Name = "ed4D" & i
  50.             'El control a la coleccion de controles del Form
  51.            Me.Controls.Add(ed4D)
  52.         Next
  53.  
  54.     End Sub
  55.  
  56.  
  57.     Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
  58.  
  59.     End Sub