Flash,gifs

[lxl_igor_lxl]

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?

[Graymalkin]

Que controles você usou para tal?

Abraços,

Graymalkin

[lxl_igor_lxl]

num lembro direito , porque? qual seria o certo?

[Graymalkin]

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

[ramon]

Para flash você pode usar o componente ShockwaveFlash

Exemplo

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

[lxl_igor_lxl]

vlw pela ajuda!!!

[lxl_igor_lxl]

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 ?

[rodfraga]

Botando no Form_Load daria certo né?

[lxl_igor_lxl]

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

[Graymalkin]

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

[rodfraga]

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.

Abraços

[lxl_igor_lxl]

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