Reproductor de Musica
Publicado por Jose Gpe Sanz (29 intervenciones) el 28/10/2008 17:49:09
Sald2 Foro.!
Ayudenme por favor a desarrollar un Rep Musica
esta es mi muy particular forma de querer hacerlo
en un formulario tiengo lo siguiente:
Image1
ListBox
Command1 Play
Command2 Stop
Command3 Siguiente
Command4 Anterior
Command5 Pausa
Este codigo es el que tengo
En un Modulo
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Codigo en la Image1
Private Sub Image1_Click()
Dim Ruta As String
Ruta = "C:magenesAlex Ubago.JPG"
Image1.Picture = LoadPicture(Ruta)
ListBox.AddItem "Aunque No Te Pueda Ver"
ListBox.AddItem "Dame Tu Aire"
End Sub
Codigo Command "Play"
Private Sub Command1_Click()
Dim i As Long
i = ShellExecute(Me.hwnd, "Open", "C:Alex Ubago.MP3", "", "C:", 1)
este codigo es para la primera cancion pero para la segunda…?
End Sub
Proceso:
1.- En la Imagen1 das un click y Aparece la imagen del cantante
2.- en el ListBox aparece la lista de Titulos de las canciones
3.- Seleccionas la primera cancion, hasta aqui todo bien si la reproduce
Esto es lo que me falta de programar, alguien me puede ayudar
1.- cuando le de Play a otra cancion..?
2.- cuando le ponga Stop...?
3.- cuando pase a la Siguiente..?
4.- cuando pase a la Anterior..?
5.- cuando le ponga Pausa..?
3.- Cuando le de Click a la siguiente Imagen..?
Espero haberme podido explicar bien
De antemano Gracias
Ayudenme por favor a desarrollar un Rep Musica
esta es mi muy particular forma de querer hacerlo
en un formulario tiengo lo siguiente:
Image1
ListBox
Command1 Play
Command2 Stop
Command3 Siguiente
Command4 Anterior
Command5 Pausa
Este codigo es el que tengo
En un Modulo
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Codigo en la Image1
Private Sub Image1_Click()
Dim Ruta As String
Ruta = "C:magenesAlex Ubago.JPG"
Image1.Picture = LoadPicture(Ruta)
ListBox.AddItem "Aunque No Te Pueda Ver"
ListBox.AddItem "Dame Tu Aire"
End Sub
Codigo Command "Play"
Private Sub Command1_Click()
Dim i As Long
i = ShellExecute(Me.hwnd, "Open", "C:Alex Ubago.MP3", "", "C:", 1)
este codigo es para la primera cancion pero para la segunda…?
End Sub
Proceso:
1.- En la Imagen1 das un click y Aparece la imagen del cantante
2.- en el ListBox aparece la lista de Titulos de las canciones
3.- Seleccionas la primera cancion, hasta aqui todo bien si la reproduce
Esto es lo que me falta de programar, alguien me puede ayudar
1.- cuando le de Play a otra cancion..?
2.- cuando le ponga Stop...?
3.- cuando pase a la Siguiente..?
4.- cuando pase a la Anterior..?
5.- cuando le ponga Pausa..?
3.- Cuando le de Click a la siguiente Imagen..?
Espero haberme podido explicar bien
De antemano Gracias
Valora esta pregunta


0