Usando animações flash no Visual Basic


Podemos usar o poder das animações feitas em Flash no Visual Basic. Duvida ?? Então vou mostrar...

Voce vai precisar ter a ocx Shockwave Flash - SWFLASH.OCX - (ou equivalente) instalada na sua máquina. Se não tiver pegue aqui : www.macromedia.com/software/flash/

Vamos usar arquivos feitos em flash com a extensão .swf . São animações , introduçoes , jogos , etc....Para o exemplo eu peguei alguns arquivos da internet. O arquivo intro.swf apresenta uma animação com som. Os arquivos jogo1.swf e jogo2.swf são jogos que peguei em sites infantis. O objetivo é apenas demonstrar que você pode exibir estes arquivos no seu projeto Visual Basic. Vamos ao projeto ...siga o roteiro:

- Inicie o Visual Basic e no formulário padrão insira o componente - Shockwave Flash - SWFLASH.OCX -

- A seguir faça uma referência a Shockwave Flash - SWFLASH.OCA - no seu projeto

- Insira no formulário padrão um controle combobox - combo1 - , um controle frame - frame1-, um controle label - label1 - e o controle Shockwave - shockwaveflash1 , conforme layout abaixo:

- No evento Load do formulário vamos carregar a combobox com o nome dos arquivos .SWF.

Private Sub Form_Load()
  Combo1.AddItem "intro.swf"
  Combo1.AddItem "bolinha.swf"
  Combo1.AddItem "sky.swf"
  Combo1.AddItem "anonovo.swf"
  Combo1.AddItem "crazybird.swf"
  Combo1.AddItem "jogo1.swf"
  Combo1.AddItem "jogo2.swf"
  Combo1.ListIndex = 0
End Sub

- No evento click da comboBox vamos atribuir ao controle ShockwaveFlash1 o nome do arquivo exibido na combo. Perceba que os arquivos , no meu caso , foram copiados para o diretório c:\flash . Note também a sintaxe para chamar o arquivo .swf.

Private Sub Combo1_Click()
   ShockwaveFlash1.Movie = ("c:\flash" & "..\\" & Combo1.Text)
End Sub

- O código a seguir é apenas uma perfumaria. Quando o usuário passar o mouse sobre o link em azul ele fica vermelho e aumenta de tamanho.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.FontSize = 10
  Label1.ForeColor = vbBlue
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.FontSize = 10
  Label1.ForeColor = vbBlue
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.FontSize = 12
  Label1.ForeColor = vbRed
End Sub

Ao executar o projeto , a primeira animação será o arquivo intro.swf , depois é só selecionar e se divertir...

Acabei !!! até a próxima... (o projeto completo e as ocx estão no super cd vb 2002 )