alexishf Posted August 18, 2012 Report Share Posted August 18, 2012 En un directorio tengo lo siguiente movie1.swfmovie2.swfmovie3.swf......movieN.swf lo que necesito es que estos archivos de flash se reproduzcan a pantalla completa uno despues de otro sin que tenga que presionar ningun boton. En este directorio pueden haber N archivos (y pueden tener distintos nombres, pero siempre con la extensión .swf). Espero que alguien me ayude. Gracias. Link to comment Share on other sites More sharing options...
AshWilliams Posted August 19, 2012 Report Share Posted August 19, 2012 En que lenguaje?? C# o Visual Basic??....en ASP sería fácil ;) Saludos :krider: Link to comment Share on other sites More sharing options...
alexishf Posted August 20, 2012 Author Report Share Posted August 20, 2012 En que lenguaje?? C# o Visual Basic??....en ASP sería fácil ;) Saludos :krider: Gracias por responder!lo necesito en Visual Basic Saludos!! Link to comment Share on other sites More sharing options...
AshWilliams Posted August 20, 2012 Report Share Posted August 20, 2012 Existen diversas formas...te recomiendo que leas estos enlaces:http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/e603f9d5-aaa0-4ebd-b3c1-c5c2a4b9333chttp://computersight.com/software/flash/how-to-make-a-flash-swf-player-in-visual-basic-net-2010/ SAludos :krider: Link to comment Share on other sites More sharing options...
alexishf Posted August 22, 2012 Author Report Share Posted August 22, 2012 Tengo este codigo Imports System.IO'Imports System.Collections'Imports System.Collections.Generic Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim arrFiles As ArrayList = New ArrayList() Dim dirpath As String = "C:\Users\Alexis\Documents\Visual Studio 2010\Projects\Prueba_Alexis\Prueba_Alexis\SWF\" 'Recuperar todos los archivos en el directorio Dim strFiles() As String = Directory.GetFiles(dirpath) 'Añadir todos los archivos al ArrayList For Each name As String In strFiles 'arrFiles.Add(name) AxShockwaveFlash1.Movie = (name) 'MsgBox(name) Next End Sub End Class mientras recorro "strFiles" debería reproducir cada animación .swf que se encuentra en la ruta. pero solo reproduce la ultimahice una prueba poniendo un MsgBox(name) y me manda un mensaje para cada archivo encontrado como lo puedo hacer para que se reproduzcan todas las animaciones ??? Link to comment Share on other sites More sharing options...
AshWilliams Posted August 22, 2012 Report Share Posted August 22, 2012 Podrías poner un Timer con un delay de tantos milisegundos en la linea bajo el for.....asi agregas un intervalo de tiempo entre la carga de un swf y el otro.....el for debe recorrerse tan rápido que por eso reproduce la ultima película :tonto: PS: Saludos :krider: PS2: Ejemplos: http://msdn.microsoft.com/es-es/library/3tszykws.aspx ;) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now