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

Traduções de Artigos Traduções de Artigos
Artigo: 101374 - Ver produtos para os quais este artigo se aplica.
Avançado: Requer conhecimentos avançados sobre codificação, interoperabilidade e multi-utilizador.

Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo explica como criar um ecrã de "inicial" de arranque personalizados (ecrã) para a aplicação do Microsoft Access.

Este artigo pressupõe que está familiarizado com o Visual Basic for Applications e criação de aplicações do Microsoft Access utilizando as ferramentas de programação fornecidas com o Microsoft Access. Para mais informações sobre o Visual Basic for Applications, consulte a versão do manual "Criar aplicações com o Microsoft Access".

NOTA: Visual Basic for Applications é designado por Basic do Access no Microsoft Access versões 1.x e 2.0. Para mais informações sobre o Basic do Access, consulte o manual "Introdução à programação" na versão 1.x do Microsoft Access ou o manual "Building Applications" no Microsoft Access versão 2.0

Mais Informação

Um ecrã de "inicial" de arranque é utilizado por programadores para apresentar informações importantes sobre um programa durante o arranque e para dar ao utilizador algo coloridas para ver e ler enquanto aguarda que o programa concluir o respectivo processamento inicial, tais como ler e definir as preferências definidas pelo utilizador.

Um ecrã inicial normal contém as seguintes informações:

  • 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
Este artigo contém dois definidos pelo utilizador funções de exemplo para implementar a funcionalidade inicial.

Criar um novo módulo inicial

Para criar as funções, siga estes passos:

  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

Para utilizar as funções SplashStart() e SplashEnd(), siga estes passos:
  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

Para obter melhores resultados, o formulário inicial deve ter as propriedades do formulário definidas da seguinte forma:
   ScrollBars: Neither
   PopUp: Yes
   Modal: Yes
   RecordSelectors: No
				

Suprimir o ecrã inicial do predefinido

Para impedir que o ecrã do predefinido do Microsoft Access inicial seja apresentada nas versões do Microsoft Access anteriores à versão 7.0, é possível utilizar a versão run-time do Microsoft Access fornecido com o Microsoft Access Developer Toolkit versão 2.0 ou o Microsoft Access Distribution Kit (ADK) para a versão 1.1.

Referências

Para mais informações sobre como executar uma macro de execução automática no Microsoft Access, procurar o índice remissivo da ajuda para "Macros de execução automática" ou pergunte ao Microsoft Access 97 do Assistente do Office.

Propriedades

Artigo: 101374 - Última revisão: 6 de maio de 2003 - Revisão: 2.0
A informação contida neste artigo aplica-se a:
  • Microsoft Access Distribution Kit 1.1
  • Microsoft Access Developer's Toolkit 2.0
  • Microsoft Access Developer's Toolkit 1.1
  • Microsoft Office 97 Developer Edition
Palavras-chave: 
kbmt kbhowto kbprogramming KB101374 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 101374
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

Submeter comentários

 

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