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

247 - Crear un formulario de presentación o Splash

Ejemplo para hacer un formulario ventana de inicio para el programa

El mismo requiere de lo siguiente:

Un módulo bas para arrancar el programa mediante una rutina principal ( Sub Main )
El formulario para el Splash llamado Frm_Splash
El formulaio principal a cargar cuando finalice el tiempo para la pantalla de presentación llamado Frm_Principal

Dentro del módulo bas pegar las siguientes líneas de código:

Option Explicit Private Sub Main() 'Carga y visualiza el Splash frm_Splash.Show ' Carga en memoria el formulario principal _ pero no lo muestra Load Frm_Principal 'Hasta que no se cumpla el tiempo no prosigue Do DoEvents Loop Until frm_Splash.Listo ' Visualiza el Form Principal y descarga el Splash Frm_Principal.Show Unload frm_Splash Set frm_Splash = Nothing End Sub

Ahora al formulario splash colocarle la propiedad StartUpPosition con el valor CenterScreen y quitarle los bordes en la propiedad BorderStyle

Pegar las siguientes líneas en el formulario de presentación:

Código fuente:

Option Explicit 'Variable tipo Flag que indica cuando se cumplíó el _ tiempo para descargar la pantalla de presentación Public Listo As Boolean 'Valor en segundos para la duración de del Splash Private Const DURACION As Long = 3 Private Sub Form_Load() Dim El_Tiempo As Long Me.Show 'Almacena el punto de partida para hacer _ el retardo en segundos El_Tiempo = Timer + DURACION ' ...Hasta que no se cumpla el tiempo realiza el retardo Do While Timer < El_Tiempo DoEvents Loop ' Pone el Flag en True para descargar este form desde el _ módulo ( Procedimiento Sub Main) Listo = True End Sub

Por último ir al menú proyecto > Propiedades y en la opción Objeto Inicial seleccionar la rutina Sub Main

vista de la ventana de proyecto de visual basic para arrancar desde un Sub Main

Nota: Para variar los segundos de duración para el form Splash, cambiar el valor de la constante DURACION en el módulo.

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb