Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Erika Vega en 12 Julio 2005, 19:52 pm



Título: Ayuda con control WindowsMediaPlayer
Publicado por: Erika Vega 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


Título: Re: Ayuda con control WindowsMediaPlayer
Publicado por: Slasher-K 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.