[Aporte]Crear controles en tiempo de Ejecución

Tutorial Crear Controles en tiempo de Ejecución by Freeze

Hola hoy les voy a enseñar a algunos como crear controles en tiempo de ejecucion..comenzamos:

¿Que es tiempo de Ejecución?

Tiempo de ejecución se refiere al momento en el que un programa de computadora esta corriendo o esta activo.

+ Info: http://es.wikipedia.org/wiki/Tiempo_de_ejecuci%C3%B3n
+ Info: http://www.google.co.ve/search?hl=es&q=tiempo+de+ejecucion&meta=

¿Controles?

Al decir Crear Controles, me refiero a crear objetos, como por ejemplo:
-CommandButton
-Form
-TextBox

y muchas otras cosas...

Al crear controles lo que hacemos es Cargar objetos al form y ¿Como se hace para cargar objetos al Form?... Muy sencillo usando:

Load

Cada vez que querramos Cargar objetos al form, Crearemos un array de controles(Del objeto el cual queremos "Duplicar" ¿Porque "Duplicar"?..Porque si o existe otro Control, no se puede hacer un array de controles y si no se puede hacer un array de controles no podremos cargar un nuevo objeto al formulario...),usaremos Load... Ejemplo:

Código:

Private sub command1_click
Text1.index = 0
Load Text1(1)
end sub

¿Que pasa?

¿Porque no tengo errores? ¿Pero no se carga el text..?

Lo que sucede es que cuando el TextBox se cargo... lo hizo sin las propiedades "arregladas" lo cual haremos nosotros.Ejemplo...

Código:

Private Sub command1_click()
Load Text1(1)
With Text1(1)
.Visible = True
.Width = 1215
.Height = 495
.Left = 1000
.Top = 100
End With
End Sub

Ahora si lo vemos

Pero al darle otro click nos dice que el objeto ya ha sido cargado entonces para poder cargar otros elementos tendran que hacer otra cosa ^^! que ustedes tendran que descubrir( Vamos es muy facil)...

Oops pero que pasa si quiero cargar otro Form????? El Form no tiene Index...

Aqui esta la solución:

Código:

Private Sub command1_click()
Set FormNew = New Form1
With FormNew
.Visible = True
End With
End Sub

Mucho mas facil eh?? Por cierto no vayan a combinar Este tutorial con timers eh?? jejejejje

Gracias

Fin