Reproductor

[jericosoft]

Espero Te Sirva Esto :


' Necesitas El control Multimedia MCI = MMControl1
' un boton = Command1
' un dirlistbox = Dir1
' un filelistbox = File1
'
' Tal vez tambien requieras el encoder para MP3 bladeenc.dll
' Quiza ya lo tengas instalado


Private Sub Command1_Click()
MMControl1.FileName = File1.Path & "\" & File1.FileName
MMControl1.Command = "Open"
MMControl1.Command = "Play"

''''MMControl1.Command = "Play"
''''MMControl1.Command = "Pause"
''''MMControl1.Command = "Stop"
''''MMControl1.Command = "Back"
''''MMControl1.Command = "Step"
''''MMControl1.Command = "Prev"
''''MMControl1.Command = "Next"

End Sub


Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Refresh
End Sub


Private Sub Form_Load()
Dir1.Path = "c:\micarpetademusica\"
File1.Path = Dir1.Path
File1.Refresh
End Sub


Saludos