Nombre de Texbox dinamico

[clarkpler]

Hola amigos como están, recurro a ustedes para que me ayuden con un problema estoy creando una pequeña aplicación y estoy generando cajas de texto dinamicas, pero quiero que el nombre de cada una vaya cambiando con una variable i. Mi codigo es el siguiente:



Private Sub frmMatTrans_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer


For i = 1 To frmDatIni.gdl

Dim ed1D1 As New TextBox 'Aca en lugar de ed1D1 quisiera quevaya cambiando, por ejemplo ed1D2 ed1D3, etc. Como puedo concatenar el nombre con la variable.

ed1D1.Width = 20
ed1D1.Height = 20
ed1D1.Enabled = True
ed1D1.Left = i * 25
ed1D1.Top = 25

Me.Controls.Add(ed1D1)
Next


End Sub

Gracias de antemano

[Aquaventus]

Pues con un iterador... ya sea un for... mira te paso un link de este mismo foro para que te guies de botones dinamicos aqui nada mas que para que lo visualizes te juegas con la propiedad text o el name para que se diferencien. Saludos!.

PDT: Te dejo otro link algo un poco mas complejo sobre creacion dinamica de controles aqui.

[clarkpler]

Gracias, solucioné mi problema.

[clarkpler]

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:

Public element1 As Array
    Private Sub frmMatTrans_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim i As Integer
 
        'Bucle para crear los labels y ponerle algunas propiedades  
        For i = 1 To frmDatIni.gdl
            'Crear nuevo ed1
            Dim ed1D As New TextBox
            'Propiedades
            ed1D.Width = 20
            ed1D.Height = 20
            ed1D.Enabled = True
            ed1D.Left = i * 25
            ed1D.Top = 50
            ed1D.Name = "ed1D" & i
            'El control a la coleccion de controles del Form
            Me.Controls.Add(ed1D)
            'Crear nuevo ed1
            Dim ed2D As New TextBox
            'Propiedades
            ed2D.Width = 20
            ed2D.Height = 20
            ed2D.Enabled = True
            ed2D.Left = i * 25
            ed2D.Top = 75
            ed2D.Name = "ed2D" & i
            'El control a la coleccion de controles del Form
            Me.Controls.Add(ed2D)
            'Crear nuevo ed1
            Dim ed3D As New TextBox
            'Propiedades
            ed3D.Width = 20
            ed3D.Height = 20
            ed3D.Enabled = True
            ed3D.Left = i * 25
            ed3D.Top = 100
            ed3D.Name = "ed3D" & i
            'El control a la coleccion de controles del Form
            Me.Controls.Add(ed3D)
            'Crear nuevo ed1
            Dim ed4D As New TextBox
            'Propiedades
            ed4D.Width = 20
            ed4D.Height = 20
            ed4D.Enabled = True
            ed4D.Left = i * 25
            ed4D.Top = 125
            ed4D.Name = "ed4D" & i
            'El control a la coleccion de controles del Form
            Me.Controls.Add(ed4D)
        Next
 
    End Sub
 
  
    Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
 
    End Sub
 

[Aquaventus]

Creando un ArrayList y recorriendo de la misma forma que los creas nada mas que en vez de crearlos los llamas por su nombre y obtienes el texto. Saludos!.

[clarkpler]

Disculpa que te moleste pero soy principiante en todo esto y lo que hice fue esto

Código vb:

Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
 
        ' vector de tipo String   
        Dim element_string As Integer() = {ed1D1.Text, ed1D2.Text, ed1D3.Text}
 
        ' recorrer el vector y  mostrar los valores   
        For i As Integer = 0 To element_string.Length - 1
            MsgBox(element_string(i).ToString)
        Next
 
 
 
    End Sub
 

{ed1D1.Text, ed1D2.Text, ed1D3.Text} en esta parte se supone que deberían guardarse los valores, pero no se como hacerlo.

[Aquaventus]

Hola clarkpler algo como esto :

Código vb.net:

Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
 
        ' vector de tipo String   
        'Dim element_string As Integer() = {ed1D1.Text, ed1D2.Text, ed1D3.Text}
 
        ' Creas tu Arraylist  
        Dim lista As New ArrayList()
 
        ' recorrer el vector y  mostrar los valores   
        'For i As Integer = 0 To element_string.Length - 1
            ' MsgBox(element_string(i).ToString)
        'Next
 
        ' Recorremos la colección de controles del formulario
        For Each ctrl As Control In Me.Controls
                ' Si el tipo de control es un TextBox
                If TypeOf ctrl Is TextBox Then
                    ' Si se llama "ed1D1" ó "ed1D2" ó "ed1D3"
                    If ctrl.Name = "ed1D1" or ctrl.Name = "ed1D2" or ctrl.Name = "ed1D3" Then
                        ' Lo almacenamos en el arraylist
                        lista.add(ctrl.Text)
                        'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
                        MessageBox.Show(ctrl.Text)
                    End If
                End If
        Next
End Sub
 

Espero haberte ayudado. Saludos!.

PDT: En los links que te pase en el que te dije que era medio complicado de alli me base para hacer este codigo.

[clarkpler]

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

Código vb:

Private Sub btnMatTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatTra.Click
 
        ' Creas tu Arraylist  
        Dim lista As New ArrayList()
 
        ' Recorremos la colección de controles del formulario
        For Each ctrl As Control In Me.Controls
            ' Si el tipo de control es un TextBox
                If TypeOf ctrl Is TextBox Then
                ' Si se llama "ed1D1" ó "ed1D2" ó "ed1D3"
                Dim i As Integer
                For i = 1 To frmDatIni.gdl
                    If ctrl.Name = "ed1D" & i Then
                        ' Lo almacenamos en el arraylist
                        lista.Add(ctrl.Text)
                        'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
                    End If
                    If ctrl.Name = "ed2D" & i Then
                        ' Lo almacenamos en el arraylist
                        lista.Add(ctrl.Text)
                        'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
                    End If
                    If ctrl.Name = "ed3D" & i Then
                        ' Lo almacenamos en el arraylist
                        lista.Add(ctrl.Text)
                        'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
                    End If
                    If ctrl.Name = "ed4D" & i Then
                        ' Lo almacenamos en el arraylist
                        lista.Add(ctrl.Text)
                        'Si quieres visualizar que se guarda correctamente lo imprimes para verificar
                    End If
                Next
            End If
        Next
        MessageBox.Show(lista(5))
    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.

[Aquaventus]

como que te almacena 1 fila no entiendo...?

[clarkpler]

No se si me dejo entender pero quiero crear una matriz rectangular, por ejemplo:

[1][0][0]
[0][0][0]
[0][0][0]
[0][0][0]

y el arraylist creo que lo guarda asi

[1][0][0][0][0][0][0][0][0][0][0][0]

Lo que pasa es que estoy haciendo una pequeña aplicación para resolver unos problemas de un curso, y necesite ingresar una matriz rectangular, para luego efectuar operaciones con ella... espero me haya dejado entender.

[clarkpler]

estuve buscando información y creo se hace con array de la forma {{5, 6}, {7, 8}} seria una matriz de 2x2