Mensaje enviado por Oscar Olmello <boecio@Infovia.com.ar>
Queridos amigos de VB:
Estuvieron preguntando por el MP3 en Visual y había prometido ampliar la información.
Recordarán que hay que bajar de Microsoft el componente MediaPlayer e instalarlo en el proyecto. (MSDXM.OCX)
En el código siguiente en el formulario se le presentan 22 temas o 23 según elija y luego que elige el usuario se abre una ventanita con comentarios del tema y se escucha el MP3.
Estan los botones para rebobinar, parar y reanudar.
Espero que les sea de utilidad.
Public Sub Reproducir()
If bSgdoForm Then
MMReprod.FileName = sPat & "\Sonido\" & "s" & nInde & ".mp3"
Else
MMReprod.FileName = sPat & "\Sonido\" & nInde & ".mp3"
End If
MMReprod.AutoStart = True
End Sub
Private Sub CmdParar_Click()
MMReprod.Pause
End Sub
Private Sub CmdRePlay_Click()
MMReprod.Play
End Sub
Private Sub CmdRew_Click()
MMReprod.AutoRewind = True
MMReprod.Stop
Reproducir
End Sub