Creacion de un visualizador de archivos SWF (Flash) con Visual Basic
Escrito por Mauro Rondinelli el Martes 04 de Diciembre de 2001 a las 00:00hs
Crearemos un visualizador de archivos Flash (SWF) algo asi como un Flash Player casero y dentro de este tambien veremos como utilizar el CommonDialog Open.
Componentes
Los componentes que debemos añadir al proyecto de Visual Basic son dos uno el Common Dialog, para ello vas al menu Proyecto > Componentes...
NOTA: Puede que tengas otra version, pero no te preocupes que funcionara igual.
El otro componente es el Shockwave Flash que si tienes instalado Flash o el Plugin de Flash lo tenes que tener, segun un estudio de Macromedia el %90 de las PC tienen el Plugin de flash instalado asi que no te preocupes que seguro lo tienes...
Muy bien, ahora coloca estos controles en el formulario (Form1), no modifiques los nombres de los controles, si lo haces recuerda tambien modificar el codigo que corresponde.
Menu
Tambien debemos utilizar el editor de Menues para crear un menu muy simple...
Son solo dos item el principal llamado "Archivo" y uno que va en su interior que es "Abrir" con su propiedad Name igual a "MnuArchivoAbrir", como indica la imagen de arriba. La interfase quedaria mas o menos asi...
Codigo
Una ves agregados todo los componentes visuales solo hace falta escribir el codigo de dicho formulario...
Private Sub Form_Resize()
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Height = Me.ScaleHeight
ShockwaveFlash1.Width = Me.ScaleWidth
End Sub
Private Sub MnuArchivoAbrir_Click()
On Error GoTo NoAbrir 'ante un error se dirije el programa a otra seccion
CommonDialog1.CancelError = True ' genera un error si se cancela la carga del archivo
CommonDialog1.DialogTitle = "Abrir" 'establece el titulo del cuadro de dialogo
CommonDialog1.ShowOpen 'abre el cuadro de dialogo para elejir un archivo
ShockwaveFlash1.Movie = CommonDialog1.FileName ' carga el archivo elejido
Exit Sub 'sale de la funcion
NoAbrir:
' si se produce algun error.
End Sub
Explicando el Codigo
Como veran son solo dos funciones, es que ando un poco vago, la primera maneja el cambio de tamaño del formulario, por ejemplo cuando el usuario maximiza o cambio el tamaño del formulario se ejecuta esa funcion "Form_Resize()" que en realidad es un evento que nos envia el objeto Form que en definitiva lo que hace es cambiar el tamaño del control "ShockwaveFlash1" para adecuarlo al nuevo tamaño del formulario.
La segunda funcion se ejecuta cuando se hace click en la opcion "Abrir" del menu "Archivo
Explicare un poco mas el tratamiento de los errores, al agregar la primere linea de codigo le indicamos al Visual Basic que si se preduce algun error vaya a la etiqueta llamada "NoAbrir" que es la ante ultima linea de codigo, pero ustedes diran para que esto, bueno, tomemos como ejemplo que el usuario apreta el boton de "Cancelar" del CommonDialog si no tendriamos esas lineas de codigo se ejecutaria toda la funcion y al querer cargar la pelicula apareceria otro error por que en realizadad no se eligio ningun archivo, se entendio?.
Descarga del Codigo
Haciendo click aqui pueden descargar todo el codigo fuente de esta aplicacion.
comentarios
-
Amigo.... no entendi algo... es decir el codigo no me funciona :S me podrias ayudar?
-
Decime que parte no te funciona ¿que error te da?
-
Oe no me salio pero si tienes mas ejemplos sobre Visual Basic, si no es mucha molestia pasamelo para ver si funciona.
-
Hola me gustaria saber si me pueden orientar, en mis aplicaciones agrego animaciones en flash, pero al momento de crear la instlacion, cuando lo ejecuto no me sale la animacion en flash, les agradeceria si me pueden ayudar
-
me parese muy interesante y funcional su paguina ya que como estan ilustradas las pantallas
es mucho mas sencillo aprender ... felisidades -
Ay wey en breve se hace yo creo q mas facil no se puede, me sirvio de mucho jejeje
Felicidades
-
Te la rifaste, de po si es muy sencilo usar vb. tnx dude :)
-
buenas tardes para preguntale si tiene un ejemplo de como vincular una forma de flash con visual si lo tiene por favor enviarmela es urgente gracias
-
yo trato de hacer lo mismo y veo que con un flash si se aparece pero cundo pongo el mio no sale