Como reproducir mp3?

[Falso Positivo]

Buenas gente!:P
Estoy empezando a programar en visual basic, tengo la version 5.0 . Me gustaria saber como reproducir un archivo en formato mp3, busque pero no encontre... en los tutoriales no se habla del tema...encontre uno que otro pero para visual basic. Net o algo asi .
Si alguien tiene un codigo  o link a algun tutorial que explique este tema se lo agradeceria enormemente!.
Salu2.

[yeikos]

Código [Seleccionar] Expandir


Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub


Mira a ver si te sirve...

[NYlOn]

Play c:\windows\ringin.wav

Los .wav son diferentes a los .mp3 .............

Che G4rBag3 existen OCX q te permieten escuchar mp3
www.lawebdelprogramador.com

[c0rrupt_gamer]

Yo acabo de probarlo con una cancion mp3 y funciona perfectamente.
Hay un detalle, cuando pruebo el programa y le doy pa k suene la musica, lo hace, pero la musica no para hasta k no cierras completamente el vb! k raro, no?

Aunque por lo demas, es muy util, gracias por el code

Saludos

[Thaorius]

Para pararlo usa:
iResult = mciExecute("Stop c:\windows\ringin.wav")
Para pausarlo:
iResult = mciExecute("Pause c:\windows\ringin.wav")
Y para resumirlo de nuevo play:
iResult = mciExecute("Play c:\windows\ringin.wav")

Saludos

[Falso Positivo]

Buenas gracias por el aporte, aunque ese codigo ya lo tenia, pero no me funciona

Les explico paso a paso lo que hago....

1º inicio vb y eligo exe standart
2º creo un commanButton

el codigo quedaria asi..

Código [Seleccionar] Expandir



Private Sub Form_Load()
    Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 'ESTA LINEA ME MARCA EL COMPILADOR
End Sub

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub



Cdo le doy para que reproduzca el programa, me sale el siguiente error señalandome en lo anteriormente mencionado:

"Error de compilacion"
'Los comentarios pueden aparecer despues de En SUb, End function o end propety'

Claro explico todo esto porque postearon que el codigo andaba perfectamente...
Lo unico que modifico es la ruta y el archivo....

Salu2.

[Thaorius]

Haci:

Código [Seleccionar] Expandir


Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub

En esencia, pones eso arriba de todo, no en el load.

Saludos

[yeikos]

No hay por que realizar la operación dentro de una variable

Código [Seleccionar] Expandir

mciExecute "Play c:\windows\ringin.wav"

[c0rrupt_gamer]

1 Question:
Hay alguna forma parecida al "Play C:\music.mp3" k lo hiciera en bucle?
Es para un programa con multiples forms que tengo hecho.
De momento he pensado poner el "PLay" en el form de entrada y en vez de cerralo al abrir otro, dejarlo invisible y k un timer volviera a reproducir la cancion cuando se acabe. Pero creo k si hay un comando como el play o parecido seria mucho mas facil, lo hay?

[arodas]

AQUI TE DEJO EL LINK PARA QUE DESCARGUES EL CODIGO FUENTE DEL REPRODUCTOR MP3

Código [Seleccionar] Expandir

http://es.geocities.com/artemio_rodas/cfuente.htm