Iniciar el formulario desde Main( ) - II

Despues añadimos sin módulo al Proyecto, empleando la Opción de menú Proyecto + módulo para ponerte en contacto, de VS.NET, y en DICHO módulo codificamos Procedure ONU Principal () Que se encargue de instanciar la ONU Objeto del Formulario. Si escribimos un algoritmo PARECIDO Muestra Que he aquí el Código fuente 383, el Programa, en efecto, sí iniciará y creara el Formulario, Pero INMEDIATAMENTE lo cerrará

Módulo de Entrada

Public Sub Main ()

'Instanciar ONU Objeto de la Clase del Formulario

Dim frmVentana Como Nuevo frmPrueba ()

frmVentana.Text = "probando from Código"

frmVentana.Show ()

End Sub

End Module

Código fuente 383

El anterior Código, aunque válido, sin Problema Tiene: Formulario de la ONU, al tratarse De Una ventana de Windows, lo NECESITA Que se denominador ONU Bucle De Proceso de Mensajes, Que le permita DETECTAR los MENSAJES Que le Envia el Sistema Operativo, y ACTUAR en Consecuencia . En. NET, sin conseguir párr Que Formulario disponga de la ONU Bucle de Mensajes, debemos utilizar la Aplicación del clase, Entre Cuyos Miembros Compartidos, SE ENCUENTRA EL METODO Run (). De Cuando un Método DICHO, le Pasemos ONU Objeto Formulario de como Parámetro, creara sin bucle de Mensajes párr DICHO Formulario y lo mantendra en ejecución resuelve Hasta Que el usuario de la Aplicación lo Cierre. Pues Modificando, el Código anterior, POR EL mostrado en el Código fuente 384, conseguiremos Que el Formulario permanezca en ejecución resuelve Una Vez Puntos Creado.

Módulo de Entrada

Public Sub Main ()

'Instanciar ONU Objeto de la Clase del Formulario

Dim frmVentana Como Nuevo frmPrueba ()

frmVentana.Text = "probando from Código"

'Utilizamos el Objeto Aplicación y Do

'Método de ejecución () crear PARA UN bucle de

'MENSAJES párrafo el Formulario y

'Ponerlo en ejecución celebra

Application.Run (frmVentana)

End Sub

End Module

Código fuente 384