como usar textbox con index = 0

[andrer03]

hola tengo este codigo para crear y eliminar textbox y labels pulsando a un boton
pero no se como usar estos textbox creados individualmente

el codigo que uso para crear los texbox es

Código [Seleccionar] Expandir


'Ejemplo de creación de controles en tiempo de ejecución
Option Explicit

'Llevará la cuenta de los controles creados
Private numControles As Long

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()
   'Crear un nuevo control de cada tipo

   
   'está declarada a nivel de módulo
   numControles = numControles + 1
   'Crear los controles
   Load Label3(numControles)
   Load Text1(numControles)
   Load Text2(numControles)
   'Posicionarlos y hacerlos visibles
   With Label3(numControles)
       .Visible = True
       .Top = Label3(numControles - 1).Top + .Height + 60
       .Caption = "" & numControles + 1 & ""
   End With
   With Text1(numControles)
       .Visible = True
       .Top = Text1(numControles - 1).Top + .Height + 30
     
   End With
   With Text2(numControles)
       .Visible = True
       .Top = Text2(numControles - 1).Top + .Height + 30
   End With
End Sub

Private Sub Label2_Click()
   'Eliminar un elemento de cada control anteriormente creado

   'El control CERO no se puede eliminar
   If numControles > 0 Then
       'Descargarlos de la memoria
       Unload Label3(numControles)
       Unload Text1(numControles)
       Unload Text2(numControles)
       numControles = numControles - 1
   End If
End Sub



espero que alguien me ayude ya que quiero usar estos textbox creados individualmente

[Sm0kes]

al komienzo ya debes tener esos text boxes kon index en 0 k lo puedes poner en la propiedades donde dice Index ponle 0 a text1, text2 y a label3 eso es lo k da a pensar ese kodigo xD...

[andrer03]

eso ya lo se y con eso creo lo textbox en el form cuando pluso en boton pero ahora quiero usar esos textbox que he creado

[Sm0kes]

algo asi

Código [Seleccionar] Expandir

Msgbox Text1(3), vbinformation, "Soy textbox1 #4 xD"

ten en cuenta k el index komienza en 0

y numControles te sirve de guia para saber kuantos hay en el form

[BlackZeroX]

eso ya lo se y con eso creo lo textbox en el form cuando pluso en boton pero ahora quiero usar esos textbox que he creado

usa

Código (vb) [Seleccionar] Expandir



select case index
    case 0
    case 1
    case 2
    case ...etc
    case else
end select



Sangrientas Lunas!¡
       

[andrer03]

ok gracias eso el lo que buscaba