Buenas, hay veremos dos temas en uno, primero 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
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "Abrir"
CommonDialog1.ShowOpen
ShockwaveFlash1.Movie = CommonDialog1.FileName
Exit Sub
NoAbrir:
' si se produce algun error.
End Sub
EXPLICACION
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", en la siguiente tabla analizamos linea por linea esta funcion.
| Linea | Descripcion |
On Error GoTo NoAbrir |
Si se produce algun error se salta a la ultima linea ("NoAbrir"). |
CommonDialog1.CancelError = True |
Indicamos al CommonDialog que si se preciona el boton "Cancelar" del CommonDialog se produzca un error. |
CommonDialog1.DialogTitle = "Abrir" |
Establece el titulo que tendra la ventana del CommonDialog. |
CommonDialog1.ShowOpen |
Muestra el CommonDialog que se utiliza para abrir archivos. |
ShockwaveFlash1.Movie = CommonDialog1.FileName |
Cuando el usuario elije el archivo se continua con esta linea de codigo que le indica al ShockwaveFlash cual es la pelicula que debe cargar. |
Exit Sub |
Una ves cargada la pelica sale de la funcion. Esta linea de codigo no es obligatoria pero hay que tener en cuenta que si no la ponemos se ejecutara toda la funcion. |
NoAbrir: |
Esta linea indica que si se preduce un error venga hasta aqui. |
' si se produce algun error. |
Comentario. |
ERRORES
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?.
DOWNLOAD
Haciendo click aqui pueden descargar todo el codigo fuente de esta aplicacion.
Bueno, Saludos a todos.