VB里用MMControl控件制作CD播放器

来源：百度知道 编辑：UC知道 时间：2024/05/11 12:48:29
要求：
运行程序装入CD光盘后，将自动播放CD曲目，同时显示曲目总数，所有CD曲目的播放总时间和正在播放的是第几首曲目。

哪位大侠帮下啊。非常感谢。希望能够详细点。

呵呵，只能播放，其他功能在完善
Private Sub Form_Load()
’ MMControl1.FileName = "F:\KuGoo3\Sound\VoiceRequest.WAV"
MMControl1.FileName = "D:\MvBox\User\cwa9958\songs\6122.mp3"
MMControl1.Shareable = False
MMControl1.Command = "Open"

End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
If NotifyCode = 1 Then '播放停止后回到曲首

MMControl1.Command = "Prev"
MMControl1.Command = "stop"
End If

End Sub

好像 无论 是 CD rom 还是 DVD 都可以 自动播放吧