CRIANDO OBJETO SHOCKWAVE VIA CODIGO

DANLEONHART 14/05/2011 10:31:12
#373922
Pessoal...

Tentei criar via código um objeto Shockwave mas não obtive sucesso... fiz assim:

Sub Abrir()
Dim FL As Object
Set FL = CreateObject([Ô]ShockwaveFlashObjectsCtl.ShockwaveFlash[Ô], [Ô]flash10l.ocx[Ô])

FL.Movie = App.Path & [Ô]\USA.swf[Ô]
End Sub


Está dando erro Run Time 463:
[Ô]Class not registered on local machine.[Ô]

só para lembrar que já registrei a OCX:
regsvr32 [Ô]C:\WINDOWS\System32\Macromed\Flash\Flash10l.ocx[Ô]
MSMJUDAS 14/05/2011 11:51:45
#373924
Pode ser que essa versão não funciona, tente uma versão anterior
DANLEONHART 14/05/2011 13:04:20
#373926
Funciona sim cara !

Corrigí...ficou assim:

Public Sub Abrir()
Dim FL As ShockwaveFlash
Set FL = Me.Controls.Add([Ô]ShockwaveFlash.ShockwaveFlash.10[Ô], [Ô]FL[Ô])
With FL
       .Visible = True
       .Height = 6975
       .Width = 10335
       .Top = 0
       .Left = 0
       .Movie = App.Path & [Ô]\USA.swf[Ô]
End With
End Sub


Só que tem de desmarcar a CheckBox do menú [Ô]Projects > Project Properties na aba [Ô]Make[Ô] desmarcar [Ô]Remove information about unused ActiveX Controls.[Ô]

Agora quero fazer com que após exibir todo o video seja encerrado a aplicação...sempre que termina ele volta a repetir o video...
Tópico encerrado , respostas não são mais permitidas
Voltar