Notifications
Clear all

Criar um gif animado com duas imagens

3 Posts
2 Usuários
0 Reactions
949 Visualizações
(@ceos005)
Posts: 49
Trusted Member
Topic starter
 

Olá amigos do Planilhando

Gostaria de saber como fazer para que duas imagens sobrepostas ficassem alternando a cada 250ms para gerar uma gif animada.
Como exemplo montei a planilha que já utilizei em outro tópico do forum mas para falar sobre o erro ao utilizar um TIMER.
Nesse exemplo, tenho um botão que ao ser pressionado, deve começar a alternância das imagens e deve parar ao pressionar o botão PARAR.
Alguém sabe como fazer sem utilizar o timer?

 
Postado : 07/08/2012 1:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Sugiro o seguinte código, a ser inserido num módulo:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Parar As Boolean

Sub Iniciar()
    Parar = False
    While Parar = False
        UserForm1.Image1.Visible = True
        Sleep 250
        DoEvents
        UserForm1.Image1.Visible = False
        Sleep 250
        DoEvents
    Wend
End Sub

Sub Encerrar()
    Parar = True
End Sub

No formulário é só colocar a chamada aos procedimentos "Iniciar" e "Encerrar".
No exemplo, a "Image1" sobrepõe a outra imagem.

Abraço

 
Postado : 07/08/2012 5:27 pm
(@ceos005)
Posts: 49
Trusted Member
Topic starter
 

Obrigado JValq

Era exatamente o que eu precisava!!

 
Postado : 08/08/2012 5:41 am