elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con control WindowsMediaPlayer
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con control WindowsMediaPlayer  (Leído 1,437 veces)
Erika Vega

Desconectado Desconectado

Mensajes: 96



Ver Perfil
Ayuda con control WindowsMediaPlayer
« en: 12 Julio 2005, 19:52 pm »

Señores pues este es mi problema, quiero programar un reproductor de MP3 utilizando el control del WMP. y no se como es que puedo hacer que este ejecute un file MP3 que este en un (file text box).

Explico tengo un form en el cual hice una conexion entre el (drive-dir-file y un list) y luego agregue el WMP y quiero que cuando yo agrege archivos MP3 al listbox los pueda ejecutar solo dandoles doble click o selecionandolo y que el Wmp los ejecute.

No se si me explico Como hago eso, el resto ya lo hice pero me falta esa parte.  Espero sus respuestas


En línea

Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: Ayuda con control WindowsMediaPlayer
« Respuesta #1 en: 13 Julio 2005, 02:52 am »

Podrías crear una matriz de String con la ruta y el nombre de los archivos, cada elemento de la matriz correspondería al mismo elemento del ListBox.

Por ej:

Código:
Option Explicit

Private sFiles() As String

Sub AddFilesToPlaylist()
           Dim sPath$, i%

  sPath = Dir1.Path
  If Not Right$(sPath,1) Like "\" Then sPath = sPath & "\"

  For i = 0 To File1.ListCount -1
    ReDim Preserve sFiles(i) As String

    sFiles(i) = sPath & File1.List(i)
    Call List1.AddItem(sFiles(i))
  Next
End Sub

Private Sub List1_Click()
  If List1.ListIndex > -1 Then
    Call PlayFile(sFiles(List1.ListIndex))
  End If
End Sub


Se supone que PlayFile es un procedimiento que reproduce el archivo.

Saludos.


En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
?repetir audicion en windowsmediaplayer?
Windows
4rm4ndo 3 3,857 Último mensaje 27 Abril 2011, 23:25 pm
por Randomize
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines