ADT/ODE: Cómo crear una pantalla de "Bienvenida" de inicio personalizado

Seleccione idioma Seleccione idioma
Id. de artículo: 101374 - Ver los productos a los que se aplica este artículo
Avanzado: Requiere avanzados de codificación, interoperabilidad, conocimientos y multiusuario.

Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se explica cómo crear una pantalla de "presentación" de inicio personalizado (pantalla de título) para la aplicación de Microsoft Access.

En este artículo se supone que está familiarizado con Visual Basic forApplications y con la creación de aplicaciones de Microsoft Access theprogramming herramientas suministradas con Microsoft Access. Para obtener más información acerca de Visual Basic para Aplicaciones, consulte su versión del manual "Creación de aplicaciones con Microsoft Access".

Nota: Visual Basic para Aplicaciones se denomina Access Basic en MicrosoftAccess las versiones 1.x y 2.0. Para obtener más información acerca de Access Basic, consulte el manual "Introduction to Programming" de MicrosoftAccess versión 1.x o el manual "Creación de aplicaciones" en la versión 2.0 de MicrosoftAccess

Más información

Una "" pantalla de inicio se utiliza por los programadores para mostrar información importante relativa acerca de un programa durante el inicio y para dar la somethingcolorful usuario mirar y leer mientras se espera el programa para el procesamiento, tales como la lectura y la configuración de usuario definedpreferences de itsinitial completa.

Una pantalla de bienvenida típico contiene la siguiente información:

  • El número de nombre y la versión del programa
  • Nombre del usuario registrado y la empresa
  • Información de copyright
  • Nombre de la compañía y el logotipo del programador
Este artículo contiene dos funciones definidas por el usuario de ejemplo a la funcionalidad de implementsplash.

Crear un nuevo módulo de bienvenida

Para crear las funciones, siga estos pasos:

  1. Cree un nuevo módulo y escriba las siguientes funciones.

    Nota: En el código siguiente, un carácter de subrayado (_) se utiliza como un carácter de continuación de línea. Quite el subrayado del final de la línea al volver a crear este código de Access Basic.
           '******************************************************************
           ' MODULE NAME: Splash
           ' DECLARATION SECTION
           '******************************************************************
           Option Explicit
    
           Dim gSplashStart     ' The time when the splash screen opened.
           Dim gSplashInterval  ' The minimum time to leave the splash screen
                                ' up.
           Dim gSplashForm      ' The name of the splash screen form.
    
           '******************************************************************
           ' FUNCTION: SplashStart()
           '
           ' PURPOSE: Used to invoke the splash screen form specified by the
           '    SplashForm argument.
           '
           ' ARGUMENTS:
           '    SplashForm     - The name of the form to use as the splash
           '                     screen.
           '    SplashInterval - The minimum time, in seconds, that the splash
           '                     screen must remain active on the screen.
           '
           '******************************************************************
           Function SplashStart (ByVal SplashForm As String, ByVal _
                  SplashInterval As Integer)
               ' Open the splash form.
               DoCmd.OpenForm SplashForm  ' In Microsoft Access 97 and 7.0.
               'DoCmd OpenForm SplashForm ' In versions 1.x and 2.0 only.
    
               ' Set the starting time.
               gSplashStart = Timer
    
               ' Record the global information.
               gSplashInterval = SplashInterval
               gSplashForm = SplashForm
           End Function
    
           '******************************************************************
           ' FUNCTION: SplashEnd()
           '
           ' PURPOSE: Used to close the splash screen form opened by the
           '    SplashStart() function. This function checks to ensure that
           '    the splash screen remains active until the user-specified
           '    interval has expired.
           '
           '******************************************************************
           Function SplashEnd ()
              Dim RetVal
    
              ' Loop until the splash screen has been active for
              ' the desired interval.
              Do Until Timer - gSplashStart > gSplashInterval
                 ' Yield control so other applications can process.
                 RetVal = DoEvents()
              Loop
    
              ' Close the splash screen.
              DoCmd.Close acForm, gSplashForm ' In Microsoft Access 97 and 7.0.
             'DoCmd Close A_FORM, gSplashForm ' In version 1.x and 2.0 only.
    
           End Function
    					
  2. Guarde el nuevo módulo como pantalla de inicio.

Usar las funciones de SplashEnd() y de SplashStart()

Para utilizar las funciones SplashStart() y SplashEnd(), siga estos pasos:
  1. Crear un formulario que no esté basado en ninguna tabla o consulta con el texto y los gráficos que desea mostrar en la pantalla de bienvenida. Para obtener más información, consulte la sección "Configuración de las propiedades de formulario" más adelante en este artículo.
  2. En la ventana Base de datos, haga clic en la ficha Macros y, a continuación, haga clic en nuevo.
  3. Crear una macro con las siguientes acciones y guárdela como AutoExec:
           Macro Name   Action
           -----------------------------------------------------------------
           AutoExec     RunCode
                        <any startup macro actions required by your program>
                        RunCode
    
           AutoExec Actions
           ----------------------------------------------------------------
           RunCode
    
              Function Name: SplashStart("YourSplashFormNameHere", 5)
           <any startup macro actions required by your program .. optional>
           RunCode
              Function Name: SplashEnd()
    					

Establecer las propiedades de formulario

Para obtener mejores resultados, el formulario de presentación debe tener las propiedades del formulario set asfollows:
   ScrollBars: Neither
   PopUp: Yes
   Modal: Yes
   RecordSelectors: No
				

Suprimir la pantalla de presentación predeterminada

Para evitar que la pantalla de bienvenida de Microsoft Access predeterminado de inversiones que aparece de Microsoft Access anteriores a la versión 7.0, puede utilizar la versión en tiempo de ejecutar de Microsoft Access que se proporciona con el Kit de herramientas de la AccessDeveloper Microsoft para la versión 2.0 o la DistributionKit de acceso de Microsoft (ADK) para la versión 1.1.

Referencias

Para obtener más información acerca de cómo ejecutar una macro AutoExec en Microsoft Access, busque "Macro AutoExec" en el índice de la Ayuda o pregunte al Ayudante de Microsoft Access 97Office.

Propiedades

Id. de artículo: 101374 - Última revisión: sábado, 23 de noviembre de 2013 - Versión: 3.0
La información de este artículo se refiere a:
  • Microsoft Office 97 Developer Edition
Palabras clave: 
kbhowto kbprogramming kbmt KB101374 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 101374
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com