ACC2000: Como utilizar o controle ActiveX de animação no Access

Traduções deste artigo Traduções deste artigo
ID do artigo: 209919 - Exibir os produtos aos quais esse artigo se aplica.
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.

Este artigo se aplica a um banco de dados do Microsoft Access (.mdb) e para um projeto Microsoft Access (.adp).

Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo mostra dois exemplos de como usar o controle ActiveX de animação em um banco de dados Microsoft Access. O controle ActiveX de animação acompanha o Microsoft Office Developer Edition Tools.

Mais Informações

Com o controle ActiveX de animação, você pode reproduzir arquivos .avi em um formulário do Microsoft Access. Quando você abre o formulário no modo de design, você pode ver o controle; no entanto, no modo de exibição de formulário, o controle estiver oculto até que você executar o arquivo .avi associado ao controle. Um uso comum para o controle de animação é fornecer animação com botões de comando. Se você colocar o controle de animação na parte superior de um botão de comando e usar o evento Click do botão para chamar os métodos Abrir e Executar do controle de animação, o botão aparece ao ser animado.

O controle ActiveX de animação dá suporte a apenas dois tipos de arquivos .AVI: arquivos .avi descompactado e arquivos .avi que tenham sido compactados utilizando Run-Length Encoding. Som componentes de arquivos .avi não são executados.

Se você usar um formato de arquivo sem suporte com o controle de animação, você receber a seguinte mensagem de erro:
Não é possível abrir arquivo AVI

Exemplo 1: Usar o controle de animação para animar um botão de comando

  1. Inicie o Microsoft Access e crie um novo banco de dados em branco chamado Animate.mdb.
  2. Crie um novo formulário não baseado em qualquer tabela ou consulta no modo Design.
  3. No menu Inserir , clique em Controle ActiveX .
  4. Na caixa de diálogo Inserir controle ActiveX , selecione Microsoft animação Control, versão 6.0 e, em seguida, clique em OK .
  5. Defina as seguintes propriedades para o controle de animação:
       Animation control
       -----------------
       Name: an1
       Visible: No
       Left: 1"
       Top: .5"
       Width: 1"
       Height: 1"
    					
  6. Adicione um botão de comando para o formulário e defina as seguintes propriedades:
       Command button
       --------------
       Name: cmd1
       Caption: Play Animation
       Left: 1"
       Top: .5"
       Width: 1"
       Height: 1"
       OnClick: [Event Procedure]
    					
  7. Digite o seguinte código no procedimento de evento OnClick do botão de comando:
    Private Sub cmd1_Click()
    Dim AviFile As String
    
    ' Type the full path to the .avi file on the following line.
    AviFile = "path and filename"
    
       With an1
          .Visible = True
          .AutoPlay = True
          .Open AviFile
       End With
    End Sub
    						
    Observação : para o código para executar corretamente você deve inserir o caminho correto e o nome do seu arquivo .avi.
  8. Salve o formulário como frmAnimate e, em seguida, alterne para o modo formulário.
  9. Clique no botão de comando e observe que o arquivo .AVI é executado na parte superior do botão de comando.

Exemplo 2: Selecionar e execução de um arquivo de animação

  1. Execute as etapas 1 a 3 no exemplo 1.
  2. No menu Inserir , clique em Controle ActiveX .
  3. Na caixa de diálogo Inserir controle ActiveX , selecione Microsoft animação Control, versão 6.0 e, em seguida, clique em OK .
  4. Defina a propriedade nome do controle de animação para An2.
  5. No menu Inserir , clique em Controle ActiveX .
  6. Na caixa de diálogo Inserir controle ActiveX , selecione Microsoft Common Dialog Control 6.0 e, em seguida, clique em OK .
  7. Defina a propriedade nome do controle diálogo comum para Cd2.
  8. Adicione um botão de comando para o formulário e defina as seguintes propriedades:
       Command button
       --------------
       Name: cmd2
       Caption: Select & Play
       OnClick: [Event Procedure]
    					
  9. Digite o seguinte código no procedimento de evento OnClick do botão de comando:
    Private Sub cmd2_Click()
       With Cd2
          .Filter = "avi (*.avi)|*.avi"
          .ShowOpen
       End With
       With An2
          .AutoPlay = True
          .Open Cd2.FileName
       End With
    End Sub
    					
  10. Salve o formulário como frmSelectPlay e, em seguida, alterne para o modo formulário.
  11. Clique no botão de comando.
Observe que uma caixa de diálogo Abrir é exibida e lhe permite selecionar um arquivo .avi e, em seguida, o arquivo .AVI é executado no formulário.

Referências

Para obter mais informações sobre controles ActiveX, clique em Ajuda do Microsoft Access no menu Ajuda , digite ActiveX no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir os tópicos retornados.

Propriedades

ID do artigo: 209919 - Última revisão: quinta-feira, 24 de junho de 2004 - Revisão: 2.0
A informação contida neste artigo aplica-se a:
  • Microsoft Access 2000 Standard Edition
Palavras-chave: 
kbmt kbhowto kbprogramming kbusage KB209919 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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 209919

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