Utiizar Flash En Vb6

Como usar Flash en Visual Basic 6
Por MOiSTER el 16 November, 2007. Publicado en Small Bits. 24 Comentarios
Con este primer mini-tutorial ignauramos una nueva categoría dentro de Móchate, “Small Bits”, en la cual postearemos tutoriales, consejos y mas, todo sobre programación. Una de las fortalezas de Flash, es poder crear interfaces muy sencillas o interfaces muy elaboradas graficamente, algoque en Visual Basic 6 puede llegar a ser muy laborioso de programar. Agregando el control Shockwave Flash a tu proyecto en Visual Basic 6, puedes llegar a tener la riqueza multimedia de Flash en tus aplicaciones de escritorio.

Usar Flash en Visual Basic 6
Para usar Flash en Visual Basic 6, lo primero que tenemos que hacer es agregar el control Shochwave Flash a tu proyecto, realizando lossiguientes pasos:
* Crea un proyecto nuevo en Visual Basic 6, del tipo Standard EXE.
* Una vez creado tu proyecto ve a: Project (Proyecto) y selecciona la opción Components (Componentes). También puedes presionar Control + T para ir directamente a la ventana Components.
* En la ventana Components, selecciona la pestaña Controls, y en la lista de controles busca el control llamadoShockwave Flash, haz click en el checkbox y luego en Aceptar para agregar el control a tu barra de controles.

Si haz hecho bien los pasos anteriores, al final de la lista de controles aparecerá un icono con la forma de una hoja en blanco. Este es icono que representa al control en la barra de controles del proyecto.
Lo siguiente, es agregar el control al formulario, arrastrando el icono al formularioy a continuación se mostrara el control en el formulario representado por una caja blanca, ahora solo hay que agregar el código para controlar el funcionamiento de la película Flash.
Ejemplos de código:
Cargar pelicula Flash en el control:
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "boton.swf"
End Sub
Enviar valoresa variables:
Private Sub Form_Load()
Dim Valor as String
Valor = "Esta es una Cadena"
ShockwaveFlash1.SetVariable "_root.VariableEnFlash", Valor
End Sub
Recibir comandos enviados del Flash a Visual Basic y viceversa:
En Flash usamos el siguiente código para enviar comandos a Visual Basic.
on(release){
fscommand("TERMINAR");
}
En Visual Basic, seleccionamos la forma donde se encuentra el control Flash que agregamos y damos doble click sobre el, para abrir la ventana de Código. En la parte superior, en el combo box de la derecha, seleccionamos ShockwaveFlash1 y a continuación en el de la izquierda seleccionamos FSCommand. Esto abrirá el código para lafunción FSCommand del control Flash, donde podremos agregar el código a ejecutar dependiendo del comando que se reciba desde Flash.
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args _As String)
Select Case command
Case "TERMINAR"
End
Case "Abrir_Documento"
Call New_DocumentEnd Select
End Sub
Espero que estos ejemplo de código te ayuden. En una próxima entrega hablare de como usar el control Shockwave Flash, en Visual Basic .NET. No dudes en expresar tus dudas en los comentarios de esta entrada.

1 - Descripción del control ShockWave
Con el ocx llamado Shockwave Flash podemos insertar e incorporar archivos con extención swf enproyectos de vb.
Este ocx se añade a un proyecto de Visual Basic como cualquier otro desde el menú Proyectos - Componentes o presionando conjuntamente Ctrl+t, y chequeando en la lista de componentes ShockWave Flash
 
 

2 - Ventana Custom del control shockWave flash
 

 
Mi opinión personal, no se si estaré en lo cierto, es que lo mas cómodo y funcional es manejar todas estas propiedades...