Saludos.!! masters..!!!
veran tengo uin problema con este control..
veo que no se refresca en tiempo de ejecucion es decir..!!
lo que quiero es reproducir un archivo .swf
y lo quiero que el fondo se ponga en transparente!!
cuya propiedad es wmode del objeto.. y el valor es Transparent..!!!
pero le pongo asi en tiempo de ejecucion y no me muestra transparente sino me muestra
para poder ver el codigo pues.. se tiene que agregar
4 command
1 textbox
1 control ShockwaveFlash1
espero que me puedan dar una mano..
de ante mano gracias.. manos!!
jajaja
'-- Codigo
Option Explicit
Private Sub Command1_Click()
ShockwaveFlash1.Movie = Text1.Text
End Sub
Private Sub Command2_Click()
ShockwaveFlash1.WMode = "Transparent"
End Sub
Private Sub Command3_Click()
ShockwaveFlash1.WMode = "Window"
End Sub
Private Sub Command4_Click()
ShockwaveFlash1.WMode = "Opaque"
End Sub
Private Sub Command5_Click()
ShockwaveFlash1.Play
End Sub
Private Sub Command6_Click()
ShockwaveFlash1.Stop
End Sub
Private Sub Form_Load()
Text1 = "C:\Program Files\QueueSmart_Cliente Dev RC 40\Skins\Default\Tarjeta.swf"
End Sub
veran tengo uin problema con este control..
veo que no se refresca en tiempo de ejecucion es decir..!!
lo que quiero es reproducir un archivo .swf
y lo quiero que el fondo se ponga en transparente!!
cuya propiedad es wmode del objeto.. y el valor es Transparent..!!!
pero le pongo asi en tiempo de ejecucion y no me muestra transparente sino me muestra
para poder ver el codigo pues.. se tiene que agregar
4 command
1 textbox
1 control ShockwaveFlash1
espero que me puedan dar una mano..
de ante mano gracias.. manos!!
jajaja

'-- Codigo
Option Explicit
Private Sub Command1_Click()
ShockwaveFlash1.Movie = Text1.Text
End Sub
Private Sub Command2_Click()
ShockwaveFlash1.WMode = "Transparent"
End Sub
Private Sub Command3_Click()
ShockwaveFlash1.WMode = "Window"
End Sub
Private Sub Command4_Click()
ShockwaveFlash1.WMode = "Opaque"
End Sub
Private Sub Command5_Click()
ShockwaveFlash1.Play
End Sub
Private Sub Command6_Click()
ShockwaveFlash1.Stop
End Sub
Private Sub Form_Load()
Text1 = "C:\Program Files\QueueSmart_Cliente Dev RC 40\Skins\Default\Tarjeta.swf"
End Sub