Gif animado no formulário

Olá!
Há algum tempo tentei inserir um gif animado no formulário (coisa pequena), li algumas dicas, pelos tramites normais cheguei bem próximo só que tinha que ter autorização da firma para instalar uma dll como não tinha permissão... ficou em stand by. A minha pergunta é a seguinte teria uma outra forma desse gif rodar no formulário? Fico no aguardo....

Olá! Tem como se você dividir o gif em quadros separados e usar o evento "No timer" para fazer a mudança entre quadros. Você pode colocar um controle imagem em um subformulário e usar o timer desse subformulário inserido no formulário principal. Então você define o evento "Intervalo do cronômetro" de acordo a velocidade pretendida. Vamos supor que suas imagens se chamam img0 até img20. Você deve declarar uma variável de nome T por exemplo no escopo do formulário, no início do VBA:

Option Compare Database
Option Explicit

Dim T As Integer

No evento "No timer", coloque:

Código:

If T < 20 Then
    T = T + 1
Else
    T = 0
End If

Me.NomeDoControleImagem.Picture = CurrentProject.Path & "\Imagens\img" & T & ".jpg"


Nesse caso, as imagens ficariam em uma subpasta chamada Imagens dentro da pasta aonde está o mdb ou accdb.

Poderia postar um exemplo em um bco?

Ou:

Se tiver ligação à Net, não necessita de nada localmente;

Outra ideia seria utilizar um html com o gif carregado em um controle webbrowser ou ainda um arquivo swf.

Como diria o Lex Luthor no filme Superman Returns, "Possibilidades, infinitas possibilidades" (embora nesse caso não sejam infinitas né? HEHEHE.

Olá...estava raciocinando (analisando...) sobre o exemplo enviado e me veio uma dúvida. Esse gif só roda sê estiver conectado a internet? Posso colocar um gif salvo em meu computador? Como chegar ao caminho da Microsoft Web Browser no access 2007?

Consegui chegar a Microsoft Web Browser, agora como faço para colocar o gif do meu computador? Qual o caminho? Ele está em Bibliotecas - Imagens - xxx.gif. Como faço? Estou començando.... por isso tantas perguntas, mas chego lá...

O exemplo postado por JPaulo está em um webbrowser. Nesse caso, é só colocar o gif na pasta do aplicativo ou em uma pasta na rede e passar o endereço no lugar da url. Se for na pasta do aplicativo:

objIE.Navigate CurrentProject.Path & "\nome da imagem.gif"

Oi...ainda não consegui capitar como aplicar o exemplo. Poderia me dá mais detalhes? Como informei esse gif está em meus documentos, minha imagens.

Abra o VBA do formulário e você verá umas linhas de código aonde tem um link do local aonde está a imagem. Basta colocar o endereço local no lugar dessa url.

Bom....desculpe-me pela insistência mas ainda não consegui adaptar ao gif q se encontra no computador - Imagens. No exemplo do JPAulo, o VBA está assim:

Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
objIE.Navigate "http://www.animatedgif.net/facessmiles/bball_e0.gif"
End Sub

O que tenho que mudar para dá certo? Ainda não consegui substituir. Seria essa linha?
objIE.Navigate "http://www.animatedgif.net/facessmiles/bball_e0.gif"
E onde tem objIE - InternetExplorer , também?

Aguardo para mais esclarecimentos.

Só uma dica a mais: caso esteja trabalhando em rede, sugiro colocar a imagem na pasta do backend no computador aonde esse backend estiver. Assim, você pode passar o mesmo endereço em todos os frontends. Caso não esteja rede, sugiro colocar o gif na mesma pasta do aplicativo. Assim, se por um acaso tiver que mudar de computador ou de pasta dentro do computador, não será necessário alterar o caminho no código e o esquema funcionará em qualquer situação de mudança. O caminho seria como passei em um post anterior nesse tópico:

Código:

Private Sub Form_Open(Cancel As Integer)
    Dim objIE As SHDocVw.InternetExplorer
    Set objIE = Me.browser.Object
    objIE.Navigate CurrentProject.Path & "\SeuGif.gif"
End Sub

CurrentProject.Path passa o caminho completo do arquivo mdb ou accdb. Dessa forma, a imagem será encontrada dentro da pasta do aplicativo, seja qual for essa pasta e o caminho para chegar nela.

Olá... fiz a alteração como vc orientou e apareceu a página da web com a informação: Este programa não pode exibir a página da Web

Qual é ao caminho completo da imagem incluindo o nome dela? Como está o seu código?

Ficou assim:

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
objIE.Navigate CurrentProject.Path & "\72-66.gif"
End Sub

A imagem 72-66.gif está na mesma pasta do aplicativo? Para esse caso ela tem que estar na mesma pasta.

Do access? ou do banco?

Costumamos chamar um banco de dados Access de aplicativo pelo fato dele mesmo poder ter formulários, relatórios, etc. Assim sendo, quando dizemos um aplicativo Access, estamos nos referindo ao arquivo mdb ou accdb, que no caso seria o banco de dados em si ou o frontend mdb/accdb quando o banco de dados estiver dividido em frontend e backend.

Oi....desculpas mas não tenho permissão para colocar na pasta do aplicativo. Qual seria a solução já que o gif está em imagens?

Passe o caminho completo dela conforme já citamos. Nesse caso retire o CurrentProject.Path e deixe apenas o caminho entre as aspas.

O caminho é esse: Bibliotecas - Imagens

Ficou assim:
Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
objIE.Navigate "72-66.gif"
End Sub

E continua com a mesma mensagem:

A navegação para a página da Web foi cancelada

Tente o caminho "C:\Users\Public\Pictures\72-66.gif"

Fiz a alteração e ficou na mesma mesnsagem. Só para você analisar se tem algo de errado no caminho. é o windows 7 - está em imagens

Tente assim:

objIE.Navigate Environ("USERPROFILE") & "\Pictures\72-66.gif"

Olá....
Depois de tantas alterações, fiz o que vc orientou no mesmo formulário em que me foi enviado e deu certo. Qndo coloquei no bco em que gostaria que funcionasse ficou apareceu em amarelo Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
objIE.Navigate Environ("USERPROFILE") & "\Pictures\72-66.gif"
End Sub

e marcado Me.browser.Object

O que isso significa? e por que? Acredi to que só falta resolver isto....

Verifique se a referência Microsoft Internet Controls está marcada. Caso não esteja, marque-a e teste novamente. Ou tente inserir o ActiveX Microsoft Web Browser em um formulário para que a referência seja automaticamente marcada.

Enfim....resolvido. Agora te pergunto o seguinte, sê o bco estiver na rede o que devo alterar?

Se a imagem estiver presente em todos os pcs, não necessita alterar nada, já que você teria um frontend em cada um. Se tiver apenas no servidor, aí bastaria você mudar o endereço para pegar a imagem no servidor ou no computador aonde ela esteja. Talvez algo como:

\\NomeDoComputador\Users\NomeDoUsuário\Pictures\72-66.gif

ou, se o computador estiver representado por uma letra de driver:

X:\Users\NomeDoUsuário\Pictures\72-66.gif

Olá...ainda sobre o gif no formulário, o bco fica em rede e tentei alterar o caminhyo mas não consegui avançar. Coloquei o seguinte:

objIE.Navigate Environ("x:\exemplo") & "\Pictures\11.gif"

onde x é a letra na rede e exemplo o nome da pasta onde está o gif. Gostaria de saber o q fiz de errado

O Environ retorna a pasta Usuários do computador local. Nesse caso você não usará ele, mas sim uma das formas que passei na mensagem anterior, pois nesse caso se supõe saber em qual pasta a imagem está.

Olá,
Estou aqui novamente para segui a orientação quanto a o disponibilizar esse gif em rede, pois o mesmo ja roda no meu computador. Gostaria de saber qual o caminho para rodar em rede. No meu computador roda assim:

Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
objIE.Navigate Environ("USERPROFILE") & "\Pictures\xxx.gif"
End Sub

O caminho da rede está representada como y e tenho uma pasta onde coloquei o bco e o gif. O caminho é esse y:\pasta
Alguem poderia me ajudar?

Você fez conforme falei na mensagem n° 30 retirando o Environ? Outra coisa, a pasta e arquivo tem permissão de leitura?

Sim....fiz como vc recomendou e tem permissão de leitura

Tentei esse caminho, ele abriu vai para o depurador, mostra a figura aberta e fica amarelo a parte Private Sub Form_Open(Cancel As Integer)
Private Sub Form_Open(Cancel As Integer)
Dim objIE As SHDocVw.InternetExplorer
Set objIE = Me.browser.Object
I:xxx.gif
End Sub
Fecho e o gif some,

Não está do jeito que eu passei. Seria assim:

objIE.Navigate Y:\NomeDaPasta\72-66.gif

Funcionou............Ok....finalmente. Fiz desse jeito:
objIE.Navigate CurrentProject.Path & "\xxx.gif", mas tenho q habilitar a macro para as máquinas. Tem como ficar automática?

Veja se esse artigo ajuda.

Tem este também:

http://maximoaccess.forumeiros.com/t3397-gif-animado-em-access-windos-7?highlight=gif+animado


Cumprimentos.