Sección de códigos , trucos y ejemplos para visual basic

30 - Ejemplos varios para Crear controles en tiempo de ejecución en vb

Contenido

Descripción de los métodos Load y unload
Ejemplo 1 - Crear controles Label
Ejemplo 2 - Crear TextBox dinámicamente tipo un grid simple
Ejemplo 3 - Crear controles con el método Add
Ejemplo 4 - Crear controles con un timer
Enlaces relacionados

Descripción de los métodos Load y unload

Este ejemplo muestra como podemos cargar y descargar controles en tiempo de ejecución mediante Load y Unload.

Para usar este método ( Load ) para crear controles en tiempo de ejecucion, hay que tener por lo menos un control creado en tiempo de diseño y que tenga en la propiedad index del mismo el valor 0, es decir que conforme un Array de controles.

vista de la ventana de propiedades de visual basic

Luego a partir de este control se pueden crear los demas elementos dentro del Array de controles, como también eliminarlos o descargarlos mediante el método UnLoad

Una ves que tenemos uno que forme el array, por ejemplo Label1(0) , para crearlo le debemos pasar el índice a Load :

' crea otro control Laod Label1(1) ' crea otro mas Laod Label1(2) 'Etc..

si queremos eliminar los dos controles anteriomente cargados :

' Elimina o descarga el control Unload Label1(1) ' Elimna el otro Unload Label1(2) 'Etc..

Importante. Al crear uno, el mismo por defecto tiene la propiedad Visible en false, por lo tanto debemos hacerlo visible , ej:

Unload Label1(1) ' lo hace visible Label1(1).visibe = True Unload Label1(2) ' lo hace visible Label1(2).visibe = True 'Etc..

..asi como también asignarle las demás propiedades que queramos , como la posicioón, tamaño, color de fuente etc...

Ejemplo 1 - Crear Labels

El siguiente código fuente crea 10 controles Labels

Controles

Colocar en el formulario un Control Label1(0)
Un command1 que cargarà 10 controles labels mediante un bucle For Next
Un Command2 que los eliminará, descargandolos mediante el método Unload.

vista del formulario para crear los label en tiempo de ejecución

Código fuente en el formulario

Private Sub Command1_Click() Dim i As Integer 'Bucle para crear los labels y _ ponerle algunas propiedades For i = 1 To 10 ' Crea un nuevo control Load Label1(i) 'Le establecemos algunas propiedades Label1(i).Visible = True Label1(i).Left = 0 Label1(i).Top = i * 50 Next End Sub 'El botón que los descarga Private Sub Command2_Click() Dim i As Integer If Label1.Count <> 1 Then 'Descargamos los labels creados indicándole el índice For i = 1 To Label1.Count - 1 Unload Label1(i) Next End If End Sub Private Sub Form_Load() Form1.ScaleMode = vbPixels End Sub

Nota: El control agregado en tiempo de diseño no se puede eliminar o descargar Otra cosa, es que no se puede volver a cargar o crear un control que ya fue creado. Por ejemplo para ver este error, presiona dos veces el Command1 , y visual basic te mostrará el siguiente error en tiempo de ejecución:

cuadro de diálogo de error al intentar cargar nuevamente el control

Ejemplo 2 - Crear textbox dinámicamente tipo un grid simple

Este proyecto para descargar, lee de una base de datos una tabla con tres campos. y va creando para cada registro , textbox en tiempo de ejecución. Estos textbox están contenidos dentro de un picturebox con una barra de scroll como muestra esta imagen

Descargar

Ejemplo 3 - De la Microsoft Knowledge

Este proyecto crea en tiempo de ejecución , un control Treeview, un CommandButton y una caja de texto. Los controles se crean mediante Controls.Add . También muestra como utilizar ( en el caso del treeview ) , el método Licenses.Add, ya que este no es un control estándar de visual basic.

Descargar

Ejemplo 4 - Crear controles Picturebox o Image dinámicamente usando un timer

Este simple ejemplo utiliza un control timer para crear varios controles Picture Box en el formulario, ubicándolos en una posición aleatoria con la función RND de vb, y al hacer clic los descarga todos y vuelve a iniciar el timer para volver a crearlos.

Ejemplo:

Un Picture1 en un array de controles ( Picture1(0) )
Cargarle una imagen, por ejemplo un ícono.
Colocar un Timer.

Descargar este ejemplo

Código fuente en el formulario.

Option Explicit ' indice para el control Dim lIndex As Long ' volver a iniciar al hacer clic Private Sub Form_Click() Timer1.Enabled = False Dim i As Integer For i = 1 To Picture1.Count - 1 Unload Picture1(i) Next ' Volver a inicializar el timer lIndex = 1 Timer1.Enabled = True End Sub Private Sub Form_Load() ' inicializar el índice lIndex = 1 ' propiedades del timer With Timer1 .Interval = 100 ' establecer intervalo .Enabled = True End With End Sub Private Sub Timer1_Timer() ' Crear y cargar el nuevo control Load Picture1(lIndex) With Picture1.Item(lIndex) ' Establecer propiedades ( Hacerlo Visible y posición ) .Visible = True ' valor aleatorio para el top y el left .Move CInt(Form1.Width * Rnd), CInt(Form1.Height * Rnd) End With ' incrementar el índice lIndex = lIndex + 1 End Sub

Recursos vb 6.0 - Enlaces relacionados

Crear controles en tiempo de ejecución con Controls.Add

Buscar en Recursos vb