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

66 - Crear formularios en tiempo de ejecución y después descargar todos menos el original

Este ejemplo muestra una forma de crear Formularios en tiempo ejecucion, por ejemplo supongamos que tenemos un Form1, y creamos 4 formularios de tipo Form1 mediante New Form1. Despues podemos hacer un bucle para descargar todos los formularios creados menos el original. Esto lo hacemos recorriendo un bucle y mediante la colección Forms que nos da los formularios cargados de nuestro programa

Controles

Command1 los crea
Command2 los descarga

Código en el form:

Option Explicit 'Este command1 crea un nuevo Form1 cada ves que lo presionamos ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() 'Variable de tipo Form Dim Nuevo_Form As Form 'Creamos un nuevo objeto Form1 Set Nuevo_Form = New Form1 'Establecemos Algunas propiedades para este form '''''''''''''''''''''''''''''''''''''''''''''''''' 'Lo hacemos visible With Nuevo_Form .Visible = True .BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) .Caption = "Formulario: " & Forms.Count End With End Sub 'El Command2 descarga todos menos el Form1 original ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command2_Click() Dim i As Integer 'Recorremos todos los formularios mediante la propiedad count - 1 For i = 1 To Forms.Count - 1 'Descargamos siempre el indice 1, ya que cuando eliminamos 1, _ el anterior indice cambia, es decir siempre va existir un form _ con el indice 1. De esta manera eliminamos todos menos el Form _ original con indice 0 Unload Forms(1) Next End Sub Private Sub Form_Load() Command1.Caption = "Crear instancia de form1" Command2.Caption = "Descargar todos menos form1" End Sub

Recursos vb 6.0 - Enlaces relacionados

Otro ejemplo que utiliza la colección Forms de los formularios

Recursos visual basic.net - Relacionados

Crear una instancia de un formulario en vb.net usando formularios mdi

Buscar en Recursos vb