LIMPAR SWF

VBWORLD 02/07/2012 17:46:58
#405364
Olá Amigos

eu uso este código para Abrir um Arquivo swf em um AxshockwaveFlash no Botão Abrir:

Try
OpenFileDialog1.Title = [Ô]open SWF File[Ô]
OpenFileDialog1.FileName = [Ô].swf[Ô]
OpenFileDialog1.Filter = [Ô]shockwave flash object|*.swf*[Ô]
OpenFileDialog1.ShowDialog()
AxShockwaveFlash1.Movie = OpenFileDialog1.FileName
AxShockwaveFlash1.GetContainerControl()
Catch ex As Exception
End Try

Agora Eu adicionei um botão para adicionar um novo jogo ex: (ele limpa o que estava em execução e procura outro para reprodução.)

Alguém pode me ajudar já tentei muitas formas e nada e o pior é que não acho nada relacionado ou pararecido na net!

Desde já Obrigado pela ajuda de Todos!!

Abraço!!
ALTAIR148 02/07/2012 18:26:04
#405366 Resposta escolhida
Boa noite,

Não deu para entender ao certo o que você precisa.
KURTGU 02/07/2012 19:00:25
#405370
ate tenho um exemplo mais so posso postar amanha, to n trampo sem o note.
VBWORLD 02/07/2012 19:14:42
#405371
Obrigado a Pela ajuda!

Altair,
Eu preciso adicionar um código em um botão para que ao clicar nele, o arquivo em execução seja escluido e ao mesmo tempo abra a opção para selecionar outro arquivo swf,
acredito que o código postado acima será utilizado para isso , sendo assim só preciso de uma função que retire o arquivo em execução para que quando eu selecionar o novo, o app funcione normalmente..

Atualmente eu consigo reproduzir um Swf mas quando tento carregar outro, a opção de seleção abre normalmente eu consigo selecionar o arquivo que quero, mas,
quando clico em Ok o arquivo não abre continua com o antigo em execurção, Como Posso Resolver isto?

Kurtgu,

Valeu eu vou aguardar o seu exemplo, se eu conseguir com as respostas dos amigos aqui beleza mas mesmo assim é sempre bom outras opções já que podemos acabar simplificando ainda mais o nosso sistema.

Abraço a Todos!
ALTAIR148 02/07/2012 19:54:06
#405377
Não entendi o problema, aqui pra mim o código funciona normal, por exemplo se eu escolho um arquivo, e depois quero escolher outro eu só clico no botão onde tem esse código ai e ele executa o novo que eu escolhi.
VBWORLD 02/07/2012 20:48:24
#405379
Pois é Altair,
Eu também não entendo! deveria ser assim mesmo mas aqui não esta funcionando aqui não reproduz o novo arquivo! continua sempre com o mesmo, será que o código esta errado em alguma parte?

Obrigado pela ajuda!!
ALTAIR148 03/07/2012 07:03:13
#405386
Tente assim para ver se retorna algum erro.

Try
            OpenFileDialog1.Title = [Ô]open SWF File[Ô]
            OpenFileDialog1.FileName = [Ô].swf[Ô]
            OpenFileDialog1.Filter = [Ô]shockwave flash object|*.swf*[Ô]
            OpenFileDialog1.ShowDialog()
            AxShockwaveFlash1.Movie = OpenFileDialog1.FileName
            AxShockwaveFlash1.GetContainerControl()
        Catch ex As Exception
msgbox ex.message
        End Try
VBWORLD 03/07/2012 08:27:04
#405396
Aqui não aceitou, o [Ô]Msgbox ex.Message[Ô] Aqui só aceitou assim[Ô] Msgbox exception.Menssage[Ô]
e para completar continuou do mesmo jeito.

Obrigado pela Ajuda!!
ALTAIR148 03/07/2012 08:31:00
#405397
tem como postar seu projeto aqui?
VBWORLD 04/07/2012 08:54:01
#405494
Segue um [txt-color=#e80000]Link[/txt-color] para download do projeto.

http://www.4shared.com/rar/NT6QsQyn/WindowsApplication1.html

Obrigado pela Ajuda!!!
ALTAIR148 04/07/2012 12:19:49
#405505
Estranho, aparentemente você mudou alguma propriedade do AxshockwaveFlash, eu exclui o componente e adicionei um novo e funcionou perfeitamente.

Fiz uma pequena modificação no código tbm, veja como ficou: 

 Try
            OpenFileDialog1.Title = [Ô]open SWF File[Ô]
            OpenFileDialog1.FileName = [Ô].swf[Ô]
            OpenFileDialog1.Filter = [Ô]shockwave flash object|*.swf*[Ô]
            OpenFileDialog1.ShowDialog()
            AxShockwaveFlash1.Movie = OpenFileDialog1.FileName
			textbox1.text = OpenFileDialog1.FileName
            MsgBox(OpenFileDialog1.FileName)
            AxShockwaveFlash1.GetContainerControl()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar