Question

请帮我做一个VB的作业作者可以做成下载包肯定很多人下载

用MMControl控件制作CD播放器。程序运行界面如图4-3所示。

要求：

（1）运行程序装入CD光盘后，将自动播放CD曲目，同时显示曲目总数，所有CD曲目的播放总时间和正在播放的是第几首曲目。

（2）按表4-1设置各对象的属性

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-03.vbp，窗体文件名为vbxk4-03.frm，文件夹名为vbxk4-03。
大家可以发源代码上来， 主要是为了交作业





Answer 1

Private Sub ComEject_Click()
    MMC.Command = "stop"
    MMC.Command = "eject"
    ComPlay.Enabled = True
End Sub
Private Sub ComNext_Click()
    MMC.Command = "next"
End Sub
Private Sub ComPause_Click()
    ComPlay.Enabled = True
    MMC.Command = "Pause"
    ComPause.Enabled = False
End Sub
Private Sub ComPlay_Click()
    MMC.Command = "Play"
    ComPause.Enabled = True
    ComPlay.Enabled = False
    ComStop.Enabled = True
End Sub
Private Sub ComPrev_Click()
MMC.Command = "Prev"
End Sub
Private Sub ComStop_Click()
    MMC.Command = "Stop"
    ComStop.Enabled = False
    ComPlay.Enabled = True
End Sub
Private Sub Form_Load()
    MMC.DeviceType = "cdaudio"
    MMC.Command = "Open"
    MMC.TimeFormat = 10
    MMC.AutoEnable = True
    LabT.Caption = "曲目总数：" & MMC.Tracks & "  总时长：" & MMC.Length
    LabP.Caption = "正在播放第" & MMC.TrackPosition & "首曲目  时长：" & MMC.TrackLength
End Sub
Private Sub Form_Unload(Cancel As Integer)
    MMC.Command = "Close"
End Sub
Private Sub MMC_StatusUpdate()
    LabT.Caption = "曲目总数：" & MMC.Tracks & "  总时长：" & MMC.Length
    LabP.Caption = "正在播放第" & MMC.TrackPosition & "首曲目  时长：" & MMC.TrackLength
End Sub

自己去调整。

Answer 2

正在做，可能需要点时间。

需要时间的，不是成天做这个吧？

Answer 3

去群148317126里找人帮你

Answer 4

已上传到附件中，自行下载