Visor Flash

Fecha:27-Noviembre-2003 (29/Nov/2003)
Autor: Domingo Gabriel Delgado Ruiz , email: houseche@hotmail.com

El Visor Flash se utiliza para poder ver los proyectos que nosotros u otras personas realizan en flash, no es mi mucho menos una joya de programa pero tiene algunos trucos para cambiar tanto el aspecto del formulario como la manera de insertar nuestros proyectos flash en nuestros programas de visual basic.

A continuación sigue código en Visual Basic:

Private Sub  abrir_Click()
'Ahora abriremos el cuadro de commondialog para seleccionar nuestro proyecto flash
CommonDialog1.DialogTitle = "Abrir"
CommonDialog1.Filter = "Tipos admitidos (*.swf)|*.swf"
CommonDialog1.ShowOpen
'Con esta instruccion ejecutamos la pelicula flash
sflash.Movie = CommonDialog1.FileName
'La instruccion "rewind" sirve para volver al principio de la pelicula
'Aqui lo tengo que hacer ya que con la instruccion anterior se ejecuta directamente la pelicula y yo queria dejarla parada y que pulsaramos los controles de la pelicula
sflash.Rewind
Frame1.Enabled = True
End Sub

Private Sub  cerrar_Click()
End
End Sub

Private Sub  chizh_Click()

If FileExist(App.Path & "\skin\chizh.skn") = True Then
'Estas instrucciones sirven para poder cargar un skin y cambiar con ello el aspecto del formulario
Skin1.LoadSkin App.Path & "\skin\chizh.skn"
Skin1.ApplySkin Me.hWnd
Skin1.ApplySkin fcreditos.hWnd
'Aqui grabo la ruta de donde esta el skin en un archivo .ini, esta instrucin es igual que en los demas skin
    Dim sFicINI As String
    Dim sSeccion As String
    Dim sClave As String
    Dim sValor As String
    
    sFicINI = Trim$(App.Path & "\visor.ini")
    sSeccion = Trim$("Seccion1")
    sClave = Trim$("Clave1")
    sValor = Trim$(App.Path & "\skin\chizh.skn")
    
    IniWrite sFicINI, sSeccion, sClave, sValor

Else
    MsgBox "El archivo ha sido borrado, movido o cambiado de nombre. Se cargará un skin clásico"
End If
End Sub



Private Sub  cien_Click()
'La instruccion Zoom es facil de adivinar para que sirve
sflash.zoom (0)
End Sub

Aquí no esta todo el código(esta en el .zip), pero espero que sirva de ayuda para conocer un poco como pueden interactuar flash con visual basic, si teneis alguna duda ya teneis mi email, gracias por interesarse por este programa.