Haremos uso de Swflash.ocx, lo hacemos eligiendo la opcion/ proyecto/ componentes....,
o simplemente CNTRL + T para abrir aquel panel. De ahi se debe seleccionar la opción ShockwaveFlash para luego agregarla a nuestra caja de herramientas.
Despues del paso anterior, lo mas normal es que aparezca el logo de flash como un control mas, claro que cuando se tiene flash MX instalado simplemente aparece en lugar del logo una hoja en blanco, como la de crear nuevo archivo.
Ahora solo resta dibujar el control que acabamos de agregar dentro del formulario.Se debe tener en cuenta que el tamaño con que se dibuje, sera el tamaño con que lo veamos en la aplicación .
Ademas debemos crear una caja de texto y un boton que tendran los nombres cajita y command1 respectivamente...y el control que añadimos se llamara "flash", pues de esta manera podremos pegar el siguiente codigo y no volveremos a meternos con visual:
Dim numerito As Double
private sub command1_click ()
flash.setvariable "c_flash", cajita Ënviamos el valor que hay en "cajita" ala variable c-flash en flash
end sub
private sub flash_fscommand (byval command as string, byval args as string)
cajita = args "recibimos el valor de un argumento y lo ubicamos en cajita"
end sub
private sub form_load ()
flash.Movie = (app.path & "\f_vcv.swf")
end sub
¿Que sucede aqui?
Simple, sin embargo hay que tener pinitos en visual para entender un par de detallitos.Cuando se carga el formulario, le decimos al control de flash en donde se encuentran nuestros SWF, por medio del atributo Movie. Valga la redundancia aclarar que en el ejemplo se supone que los archivos estan en la misma carpeta, y si no es asi, pues simplemente se debe modificar la linea en que se le dice la ruta de la pelicula por la ruta que especifique la posicion el archivo.
En el momento en que se oprime el boton (Command1), enviamos el valor que tenemos en nuestra caja de texto al SWF. Esto aprovechando el atributo SetVariable del control flash con 2 parametros:
El primero indica el nombre de la variable que se espera en el swf y que debe ir entre comillas si se le llama de manera explicita, pues como casi todo en visual tambien se puede hacer de manera dinamica ( y n se asusten con lo ultimo, los que no entiedan, asi nada mas funciona); y el segundo pues dice el valor que queremos enviar desde VB.
El metodo FSCommand se activa cuano desde el swf se oprime un boton que me dirijo a explicar:
¿Que sucede e flash?
Crearemos una pelicula simple con mas o menso las mismas caracteristicas del formulario en vb : una caja de texto y un boton. en nuestro ejemplo, la caja de texto se llama c_flash. para que las cosas funcionen, al boton le debemos agregar lo siguiente en sus acciones:
on (release) {
fscommand ("", c_flash);
}
Lo que se hace en la linea 2 es enviar el nombre de la variable.
Ahora si, e mtodo FSCommand s activa enVB cuando ocurre lo anterior en flash. Entonces recibe dos parametros, pero solo usamos el segundo, que correspondera al valor de la variable, al fin y al cabo el primero lo enviamos vacio.
