ADT/ODE: Como criar um ecrã de "Inicial" de arranque personalizada

• O programa de nome e o número da versão
• Nome e a empresa do utilizador registado
• As informações de copyright
• Nome de empresa e o logótipo do Programador

Criar um novo módulo inicial

1. Crie um novo módulo e escreva as seguintes funções.
   
   NOTA: No seguinte código, um carácter de sublinhado (_) é utilizado como um carácter de continuação de linha. Remova o carácter de sublinhado do final da linha quando recriar este código Basic do Access.

          '******************************************************************
          ' 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 o novo módulo como inicial.

Utilizar o SplashStart() e SplashEnd() funções

1. Crie um formulário não baseado em qualquer tabela ou consulta com texto e gráficos que pretende apresentar no ecrã inicial. Para mais informações, consulte a secção "Definir propriedades do formulário" mais adiante neste artigo.
2. Na janela Base de dados, clique no separador de macros e, em seguida, clique em novo.
3. Criar uma macro com as seguintes acções e guardá-lo 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()
   					

Definir propriedades do formulário

   ScrollBars: Neither
   PopUp: Yes
   Modal: Yes
   RecordSelectors: No
				

Suprimir o ecrã inicial do predefinido

Voltar ao topo | Submeter comentários