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
'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
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...
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
algo asi
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
Cita de: andrer03 en 11 Febrero 2010, 22:15 PM
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
select case index
case 0
case 1
case 2
case ...etc
case else
end select
Sangrientas Lunas!¡
ok gracias eso el lo que buscaba