Ejemplos usando el Api de windows para Visual basic

267 - Vista previa de archivos SWF

Módulo de código para previsualizar archivos ShockWaveFlash desde un cuadro de diálogo de windows

El ejemplo sirve para hacer vista previa de archivos SWF en la misma ventana del CommonDialog.

Para abrir el cuadro de diálogo, primero se debe crear una instancia de la clase con el operador New de vb y luego ejecutar el método Show Dialog, que retorna la ruta del swf seleccionado

Set cPreviewSWF = New clsDlgSWF Dim sPath As String With cPreviewSWF sPath = .ShowDialog(Me, SWF, , "seleccionar archivo de flash SWF") End With

Al abrir el diálogo, se crea en tiempo de ejecución un control ShockWaveFlash mediante el método Add de la colección controls del vb

Set mflash = mform.Controls.Add("ShockwaveFlash.ShockwaveFlash.1", "swFlashPreview")

Una ves creado el control , se crea un control picturebox también para usarlo como contenedor, ya que el ShockWaveFlash al no tener HWND, no se puede incrustar directamente con el api setparent

También se crea un commandbutton para poder hacer replay del Movie clip swf

vista previa del diálogo de windows para ver la vista previa del swf

Nota: para poder Alinear el movie clip o pelicula dentro del control ShockWaveFlash, el módulo tiene una propiedad para alinear la película llamada AlignMovie, que acepta como valores :

eBottom : alineación abajo
eTop : Se alinea arriba:
eCenter : Centrado
eLeft y eRight para alinear a la izquierda y derecha

También tiene otra propiedad para el modo de escala de la película dentro del control que permite visualizarla tal cual es, ajustar al tamaño de la ventana como si fuese un AutoSize , o sin escala

Descargar código fuente

Buscar en Recursos vb