VB - Executando animações Flash (.swf)

 

Hoje uma dica rápida de como usar o VB para executar animações flash.

 

O projeto é bem simples e vai requer apenas um formulário , um componente CommonDialog e um componente ShocKWaveFlash .

 

Não tem ? Então visite : www.macromedia.com/software/flash/ e escolha Macromedia Flash Player e a seguir Download e siga as instruções. ( acho que tem uns 220 Kb)

A seguir é só usar algumas propriedades do objeto ShockWaveFlash conforme mostrado no código abaixo:

Dim flag As Boolean

Private Sub asd_Click()
Me.WindowState = 2
End Sub
Private Sub closefile_Click()
Me.ShockwaveFlash1.Movie = ""
Me.ShockwaveFlash1.Stop
End Sub
Private Sub createfile_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 forwardmovie_Click()
Me.ShockwaveFlash1.Forward
End Sub
Private Sub fullscreen_Click()
Me.WindowState = 2
End Sub
Private Sub openfile_Click()
Me.CommonDialog1.Filter = ".swf Files|*.swf|"
Me.CommonDialog1.ShowOpen
Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName
End Sub
Private Sub playmovie_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

 

Agora é só por para executar suas animações flash . Abaixo um exemplo:

 

 

Estou deixando um exemplo de um programa feito em VB que usa arquivos com animações flash (.swf). É um programa sobre cálculos matemáticos para crianças que praticamente é todo feito em cima dos arquivos flash.

 

Pegue o exemplo aqui : vb-flash-matematica.zip e divirta-se...

 

Até breve...

José Carlos Macoratti