Visual Basic - » reproducir un *.exe de Flash4 en un form «

Life is soft - evento anual de software empresarial
 
Vista:

» reproducir un *.exe de Flash4 en un form «

Publicado por » ALebRIje (76 intervenciones) el 29/05/2001 01:50:41
Hola_:

Quiero reproducir una animacion de Flash4 en un formulario..
pero quiero que esa animacion se pueda ver en una PC que no tenga el plugin de Flash, para ello el Flash tiene la opcion de hacer una animacion en EXE, mi pregunta es: ¿Como reproducir un EXE Flash en un form?
o si pongo la animación como pelicula, al hacer el paquete de VB me incorpora el plugin de flash o como le podría hacer?

Yo lo intente hacer con el shell, pero al cerrar el programa de VB el EXE de Flash queda abierto, Acepto cualquier idea, y de antemano gracias!!.

Cs
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:» reproducir un *.exe de Flash4 en un form «

Publicado por Adán (79 intervenciones) el 29/05/2001 15:02:47
Es preferible que lo dejes como ejecutable, porque así no se necesita nada adicional, ahora, hay dos formas de evitar lo que tu dices: una es que al cerrar tu aplicación, se cierre la ventana de Flash, pero como eso creo ya lo mencionaron antes en otro mensaje, no lo voy a explicar aquí.....la segunda forma es no dejar cerrar tu formulario hast que el usuario cierre la aplicación de Flash:

Option Explicit

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long

Sub EsperarShell(sCmd As String)

Dim hShell As Long
Dim hProc As Long
Dim codExit As Long

' ejecutar comando
hShell = Shell(sCmd, vbNormalFocus)

' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)

Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE

MsgBox "El comando ha acabado"

End Sub

Private Sub Command1_Click()
EsperarShell ("C:\Archivos de programa\IE Zoomer\IEZOOMER.EXE")
End Sub

Bueno, solo cambia el Path al Exe que tu quieras y cambia el ciclo DO.....LOOP WHILE por un control timer......y ya!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar