Como reproducir un MP3 en Visual Basic?

[jdc]

Pues eso hoy en clases nos mostraron como reproducir wav con mmcontrol y me gustaría saber como sería para reproducir un mp3

Gracias de antemano, por cierto he visto varios reproductores pero no es la idea aprender a copiar sino a hacer
Gracias

[WestOn]

Wenas, yo los reproduzco con el componente Windows Media Player.

un saludo

PD:con mmcontrol no se

[jdc]

aja pero como se usaria el comtrol de WMP? lo malo es que al usarlo dependeria de que estuviera instalado en el PC el Windows Media no?

[aaronduran2]

Utiliza la API mciSendString

Código (vb) [Seleccionar] Expandir

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Saludos 

[WestOn]

Si, lo del Media Player seria eso, si no esta instalado el reproductor no sirve, de todas formas con lo q ha dicho aaronduran2  ya puedes hacerlo 

un saludo

PD:No hace falta q este instalada el Windows Media, solo coje el .ocx de un ordenador q si lo tenga (creo q es wmp.ocx/wmp.dll, una de las dos)

[jdc]

Lo siento pero no se usar APIs llevó recién un mes haciendo experimentos y me quedó pegado en términos

Esto iría en un módulo? O similar... Gracias

[Banker25]

seria bueno elabora alguno o colocar algunas de las herramientas que hay que utiliza para realizar un reproducir un MP3 en Visual Basic

[guajolote_vengador]

Si, lo del Media Player seria eso, si no esta instalado el reproductor no sirve, de todas formas con lo q ha dicho aaronduran2  ya puedes hacerlo 

un saludo

PD:No hace falta q este instalada el Windows Media, solo coje el .ocx de un ordenador q si lo tenga (creo q es wmp.ocx/wmp.dll, una de las dos)

Exactamente como dice el amigo WestOn, hasta con un scrip un ejemplo seria:

Set Wmp = CreateObject("WMPlayer.OCX.7")
Wmp.URL = "mi sonido.mp3" ;---------Puede ser mp3,wav,wma
Wmp.Controls.Play
wscript.sleep 5000 ;--------------Tiempo de reproduccion en ms.

Este ejemplo por aqui lo vi en un post.

Ó talvez estoy entendiendo mal lo que quieres hacer.

[jdc]

La idea principal más que usar un reproductor es usar el mismo visual basic para reproducir, osea abrir el media player (o embedarlo) no es la idea.

No hay ninguna forma de reproducir con visual basic un mp3?

[WestOn]

Wenas, vi un ejemplo de estos q hacen lo de micro$oft:
Añade un CommonDialog, y dos botones

Código (vb) [Seleccionar] Expandir

Private Declare Function mciSendString Lib "winmm.dll" Alias _
       "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
       lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
       hwndCallback As Long) As Long

      Private Sub Command1_Click()
        CommonDialog1.ShowOpen
        Debug.Print CommonDialog1.filename
        Debug.Print mciSendString( _
          "open " & CommonDialog1.filename & " alias testfile", 0&, 0, 0)
        ' To work around the long file name limitation use the next line
        ' instead of the previous line, which adds quotes around the path
        ' and file name.
        'Debug.Print mciSendString( _
          "open " & """" & CommonDialog1.filename & """" _
         & " alias testfile", 0&, 0, 0)

        Debug.Print mciSendString("play testfile wait", 0&, 0, 0)
      End Sub

      Private Sub Command2_Click()
        Debug.Print mciSendString("close testfile", 0&, 0, 0)
      End Sub

      Private Sub Form_Load()
        Command1.Caption = "Open and Run"
        Command2.Caption = "Close MDI file"
      End Sub

El CommonDialog es el control "Microsoft Common Dialog Control 6.0".
De todas formas si quieres echale un vistazo: http://support.microsoft.com/kb/191089/es

un saludo