• 0
Sign in to follow this  
lxl_igor_lxl

Flash,gifs

Question

e ae pessoal como estao?

o problema e o seguinte eu adicionei um arquivo flash e um gif no programa que estou fazendo mas quando eu executo o programa aparece um quadro branco no lugar do gif e do arquivo flash, alguém sabe resolver esse probleminha? biggrin.gif

Share this post


Link to post
Share on other sites

11 answers to this question

Recommended Posts

  • 0

Não pode se dizer que exista um "certo". Perguntei apenas porque ficaria mais fácil de ajudar sabendo quais são. Para gif existem vários, como o Animated Gif, por exemplo. Com este, o código seria:

AniGif1.LoadFile "c:\imagem.gif", False

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Para flash você pode usar o componente ShockwaveFlash

Exemplo

ShockwaveFlash1.Movie = "c:\meuflash.swf"

Share this post


Link to post
Share on other sites
  • 0

mas tenho um outro probleminha como faco para quando o programa abrir o gif abrir sozinho porque eu tenho que clicar nele pra ele comecar a rodar como faco pra ele rodar sozinho

estou fazendo assim:

Private Sub AniGif1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

AniGif1.LoadFile "C:\minha imagem.gif", False

End Sub

depois de sub anigif1_ esta mouse up tenho que mudar isso ? huh.gif

Share this post


Link to post
Share on other sites
  • 0

como assim ?inserir

Private Sub AniGif1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

AniGif1.LoadFile "C:\minha imagem.gif", False

End Sub

no Private Sub Form_load? se for assim deu erro

Share this post


Link to post
Share on other sites
  • 0

Não, não dá erro. Fiz o teste aqui e deu certo:

Private Sub Form_Load()
    AniGif1.LoadFile "c:\arq\anjo.gif", False
End Sub

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Isso. É como o Graymalkin fez.

Deve estar dando erro no seguinte:

Private Sub Form_load()
Private Sub AniGif1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
AniGif1.LoadFile "C:\minha imagem.gif", False
End Sub 
End Sub

Isso é um erro de sintaxe. Não se poe um procedimento, rotina, como quiser(Sub's) dentro de outro Sub. wink.gif

Abraços

Share this post


Link to post
Share on other sites
  • 0

vlw agora deu certo não sei porque mas fiz a mesma coisa que fisso antes e agora deu certo biggrin.gif

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this