Resumen Ventana de presentacion (splash)

Integrantes de la lista:

Estuve buscando sobre la forma de presentar una ventana de presentacion o
Forma Splash y encontré lo siguiente en:
http://www.mvps.org/vbnet/res/resinfo/splashscr.htm

La página esta en inglés, pero la pase a espannol.

Posted Saturday March 1, 1997
Updated Sunday January 03, 1999  How to Create a 'Splash Screen' in Visual
Basic  VBnet FramesApplies to: VB4-32, VB5, VB6


Crear una forma y poner sus propiedades para que reflejen: No menú, no
Titulo, No botones de Minimizar y Maximizar, y no Control box. Poner el
estilo del borde en 0,1 o 3. En su proyecto, crear un nuevo modulo, *.bas.

Colocar lo siguiente en la parte de declaraciones del modulo:

'Constants for topmost.
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Declare Function SetWindowPos _
    Lib "user32" Alias "SetWindowPos" _
   (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long) As Long


En la forma que ud. disenno para se la pantalla splash o de presentacion,
coloque todos los controles que quiera que tenga la pantalla. Salvela como
frmsplash.frm. En el evento frmSplash Form_Load event, ponga:

Private Sub Form_Load()
   Dim r As Long
   r = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS)
End Sub

En el modulo *.bas, crear un procedimiento (un Sub), llamado Main, y en él
poner:


Private Sub Main ()
  'Mostrar la pantalla de presentacion
   frmSplash.Show
   DoEvents

  'Ejecutar el codigo requerido para la inicializacion de alguna otra forma

  '{Codigo}

  'Mostrar la forma principal de la aplicacion
   frm(Nombre de la forma principal).Show
   DoEvents

  'Ejecutar cualquier otras funciones de arranque requeridas
  '{codigo}

  'Descargar la forma splash y liberar la memoria
   Unload frmSplash
   Set frmSplash = Nothing

   'Poner el foco en la forma principal
    Frm(Forma principal de la aplicacion).setfocus        
End Sub


Comentarios

En lugar de frm(su nombre de forma principal de aplicacion), ponga el
nombre actual de la forma principal de la aplicacion. Por ej: frmAppMain.

En VB5, Desde Project(Proyecto)/Properties menu(Propiedades del proyecto),
en la parte de "Objeto Inicial", busque y seleccione la opcion de "Sub
Main".
En VB4, desde Tools(Herramientas)/Options menu(Opciones de menu),
seleccione el "project tab", y en la parte de "startup form" ponga "Sub
Main".
En VB2/VB3, en Options/Project menu, seleccione Start Up Form, y pongale
"Sub Main".

Corra la aplicacion. La pantalla splash aparecera primero, y su ventana
principal se desplegara detras de ella. Una vez el codigo del Form_Load se
haya ejecutado, el control retornara al Sub Main para procesar el codigo
final, y entonces descargara la pantalla splash.

Espero que les sirva tanto como a mi.

Un Saludo
-----------------------------------------------------------------
Liliana Ma. Francheska Salazar Martínez
Correo-E: cheskasm@latino.net.co
Opcional: fcheska@hotmail.com
Santander - Colombia



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com