CLIPE DO FLASH

GUTO 11/01/2005 16:48:26
#60078
ola eu fiz um clip no flash como faço para por ele no meu form? valeu
USUARIO.EXCLUIDOS 11/01/2005 17:00:08
#60086
Isso já foi comentado uns tópicos atrás no fórum:

http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=52377&varSubPagina=1&varFiltro=filtro
GUTO 11/01/2005 17:13:58
#60091
naun resolveu meu probs, espero a ajuda de alguem
GUTO 13/01/2005 14:36:31
#60532
mais algum
FELIPEA 13/01/2005 14:40:37
#60533
Use o item Shockwave Flash ( Flash.ocx )
GUTO 13/01/2005 15:08:49
#60543
esta no reference, entao se form ja esta no form , so que como salvo o clipe do flash no progrma , num é so colocar esse componente, deve ter algum codigo para puxa-lo
THIAGO.CESAR 13/01/2005 15:15:44
#60545
Animação.Movie = "C:\Animacao.swf"
Animacao.Play
USUARIO.EXCLUIDOS 13/01/2005 15:19:06
#60546
você precisa "desenhar" o componente do flash em seu form e com a ajuda de um commondialog você indica o caminho da animação.
para isso va em add componets e procure o arquivo do ShockWaveFlash

Dim flag As Boolean

Private Sub FechaArquivo_Click()
Me.ShockwaveFlash1.Movie = ""
Me.ShockwaveFlash1.Stop
End Sub

Private Sub CriaArquivo_Click()
Me.CommonDialog1.Filter = ".swf Files|*.swf|"
Me.CommonDialog1.ShowSave
End Sub

Private Sub exitwindow_Click()
End
End Sub

Private Sub Form_Load()
Me.ShockwaveFlash1.Left = 0
Me.ShockwaveFlash1.Top = 0
Form_Resize
End Sub

Private Sub Form_Resize()
Me.ShockwaveFlash1.Height = Me.Height
Me.ShockwaveFlash1.Width = Me.Width

End Sub

Private Sub ParaFrente_Click()
Me.ShockwaveFlash1.Forward
End Sub

Private Sub TelaCheia_Click()
Me.WindowState = 2
End Sub

Private Sub AbrirArquivo_Click()
Me.CommonDialog1.Filter = ".swf Files|*.swf|"
Me.CommonDialog1.ShowOpen
Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName
End Sub

Private Sub TocarAnimacao_Click()
Me.ShockwaveFlash1.Play
End Sub

Private Sub print1_Click()
Me.CommonDialog1.ShowPrinter

End Sub

Private Sub rewindmovie_Click()
Me.ShockwaveFlash1.Rewind
End Sub

Private Sub stillmovie_Click()
ShockwaveFlash1.StopPlay
End Sub

Private Sub stopmovie_Click()
Me.ShockwaveFlash1.Movie = ""
Me.ShockwaveFlash1.Stop

End Sub

Private Sub zoomin_Click()
Me.ShockwaveFlash1.Zoom (10)
End Sub

Private Sub Zoomout_Click()
Me.ShockwaveFlash1.Zoom (0)

End Sub
GUTO 13/01/2005 15:21:33
#60547
Private Sub Movie1_GotFocus()
Filme1.Movie = "C:\WINDOWS\Desktop\Imobiliaria\Icones do Programa\Filme1.swf"
Filme1.Play
End Sub
num funcionou vei
USUARIO.EXCLUIDOS 13/01/2005 15:27:37
#60550
qual a mensagem de erro???
GUTO 13/01/2005 15:36:20
#60556
ESTOU USANDO ESTE CODIGO TAMEN E NAO APARECE NADA NO FILME , FICA EM BRANCO
Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
Filme1.Movie = "C:\WINDOWS\Desktop\Imobiliaria\Icones do Programa\Filme1.swf"
Filme1.Play
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar