Arrays de Controles - VB-MUNDO

nisq · #1 (**permalink**) 24-11-2006, 18:11:44

Muy Buenas. me ha surgido una duda a la hora de realizar matrices de controles.
He visto que se puede crear, por ejemplo, un array de una dimension de Text Boxs. Los pongo en una misma fila y a cada uno le pongo el mismo nombre generando asi una matriz en la que cada control (cajita de texto) tiene el mismo prefijo y un índice diferente, lblBox(1), lblBox(2),.......
la cuestion es que queria hacer una matriz de dos dimensiones con filas y columnas de cajas de texto, hay algun procedimiento similar para trabajar con ellas con la forma lblBox(0,1), lblBox(0,2) ....... ?

Saludos y Gracias.

acalanto · #2 (**permalink**) 24-11-2006, 19:00:52

No sé cual será la utilidad que darás al array de controles TextBox, pero puedes utilizar el siguiente código (He probado y funciona correctamente). Lamentablemente pierdes el control de eventos de los mismos, al menos no he sabido encontrar el truco.

Código:

Option Explicit


        Dim txt()     As TextBox

Private Sub Command1_Click()
    On Local Error Resume Next
    Dim msg As String
    Dim i As Long, j As Long
    msg = "Contenido de controles" + vbNewLine
    msg = msg + "==================================" + vbNewLine
    For i = 1 To 2
        For j = 1 To 5
            msg = msg + "txt(" + CStr(i) + ", " + CStr(j) + "): " + txt(i, j) + vbNewLine
        Next j
    Next i
    MsgBox msg
End Sub
Private Sub Form_Load()
    Dim i   As Integer, j As Integer
    Dim pX  As Long
    Dim pY  As Long
    ReDim txt(1 To 2, 1 To 5)
    For i = 1 To 2
        pX = (i - 1) * 2000 + 256
        pY = 0
        For j = 1 To 5
            pY = (j - 1) * 450 + 256
            Set txt(i, j) = Controls.Add("VB.TextBox", "txt" + CStr(i) + CStr(j))
            txt(i, j).Left = pX: txt(i, j).Top = pY
            txt(i, j).Text = "Text(" + CStr(i) + ", " + CStr(j) + ")"
            txt(i, j).Height = 285
            txt(i, j).Visible = True
        Next j
    Next i
End Sub

nisq · #3 (**permalink**) 25-11-2006, 10:59:12

Muchas gracias, me lo miraré y lo porbaré.
Mi idea es hacer tres formularios, en el primero se entran datos por el usuario, el en segundo hay que rellenar una tabla (las filas y las columnas que tendrá la tabla dependen directamente de los datos que se entran en el primer formulario, o sea, una tabla que será dinàmica al fin i al cabo) y el tercer fomulario que aparezcan calculos realizados a partir de los datos de la tabla (hacer la media de cada columna etc...). No sé si la manera de realizar la tabla, con cajas de texto es la más adecuada.
Gracias por leer el rollo que he puesto :smt003 .
Saludos!

acalanto · #4 (**permalink**) 25-11-2006, 11:37:05

NO, no es la más adecuada. Deberías utilizar un grid en cualquiera de sus variantes.