Nombre: Usar Control Flash de Macromedia
Descripción:
Ejemplo de como usar el control flash en VB
URL: http://www.mygnet.net/codigos/vb/animaciones/usar_control_flash_de_macromedia.1795
Código Fuente:
Private Sub Form_Load()
Flash1.Movie = App.Path & "Animacion.swf"
End Sub
Private Sub mnu_exit_Click()
End
End Sub
'*Los comandos aqui debajo son por si la animacion no se autoejecuta
Private Sub mnu_play_Click()
Flash1.Play
End Sub
Private Sub mnu_shell_Click()
X = Shell(App.Path & "Animacion.exe", vbNormalFocus)
End Sub
Private Sub mnu_stop_Click()
Flash1.Stop
End Sub
Descargar