(SOLUCIONADO) Creación de TextBox en tiempo de ejecución

[kamui23]

Hola a todos.

¿Sabeis alguna forma de crear TextBox en tiempo de ejecución en un número no sabido en tiempo de compilación?.

O sea: el usuario inserta 5 en una caja de texto y el programa crea 5 textbox.

Saludos a todos los visual maníacos.

[>> s E t H <<]

borre las respuestas sobre la ubicacion del post



Para ver este enlace Registrate o Inicia Sesion

[kaco_rcm]

bueno seth te a dado una mui buena respuesta en esa direccion aparesen un par de ejemplos : pero nose alomejor se te puede haser mucho mas facil , digo si saves cual es el maximo de textbox que nesesitas y solo los dejas visibles al ingresar el numero ,

me refiero a que tienes un textbox1.text donde ingresaras el numero textbox que quieres dejar visibles mas un boton o con un keyascii (13) solo al presionar enter para que estos se agan visibles ,

como:
sub form load ()
text2.text.vis ible=false
text3.text.vis ible=false
text4.text.vis ible=false
text5.text.vis ible=false
text6.text.vis ible=false
text7.text.vis ible=false
end sub
sub command1_click() (ejemplo, ni me acuerdo vien de la declaracion )

if val(text1.text)=1 then
text2.text.vis ible=true
text3.text.vis ible=false
text4.text.vis ible=false
text5.text.vis ible=false
text6.text.vis ible=false
text7.text.vis ible=false
end if

if val(text1.text)=2 then
text2.text.vis ible=true
text3.text.vis ible=true
text4.text.vis ible=false
text5.text.vis ible=false
text6.text.vis ible=false
text7.text.vis ible=false
end if

if val(text1.text)=1 then
text2.text.vis ible=true
text3.text.vis ible=true
text4.text.vis ible=true
text5.text.vis ible=false
text6.text.vis ible=false
text7.text.vis ible=false

end if

if val(text1.text)=1 then
text2.text.vis ible=true
text3.text.vis ible=true
text4.text.vis ible=true
text5.text.vis ible=true
text6.text.vis ible=false
text7.text.vis ible=false
end if

if val(text1.text)=1 then
text2.text.vis ible=true
text3.text.vis ible=true
text4.text.vis ible=true
text5.text.vis ible=true
text6.text.vis ible=true
text7.text.vis ible=false
end if

if val(text1.text)=1 then
text2.text.vis ible=true
text3.text.vis ible=true
text4.text.vis ible=true
text5.text.vis ible=true
text6.text.vis ible=true
text7.text.vis ible=true
end if
end sub

bueno esto seria basicamente devido a que repeti los false en las sentencias if fue devido a que si cambias de opinion y no quieres tantos como 5 o 6 solo ingresas 2 y se vorraran los demas..

saludos y espero que te sirva de algo  ya que seth ya respondio

[>> s E t H <<]

mmm.. me parece que mi code es mas eficiente

y por el nivel que creo que tiene kamui lo va a entender.. (CREO)

una forma de mejorar un poco el codigo de arriba seria creando un sub que oculte todos los textbox, despues llamamos a ese sub, a continuacion mostramos los que queremos mostrar

[kaco_rcm]

tienes razon conlo de la eficiencia de tu code ,con respecto aeste code que deje es un code super simple y que creo  que lomareara menos en la ejecucion y le da la puerta para lacomprencion de los str , y elcode para ocultar los textbox etsa al cargar elformulario comoaparece alprincipio del code de ejemplo  que le deje, obiamente elcomienzo de este no es elcorrecto por que nome acordava bien el sub formload() y lodemas.. 

saludos

a y seth grasias por elcodigo en mi post.

[kamui23]

Las respuestas me han ayudado mucho. No es tan sencillo como en JAVA, pero me sirve.

Gracias a todos y perdón por no responder antes.