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

2025-06-20 12:35:14

推荐回答（4个）

回答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

自己去调整。

回答2：

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

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

回答3：

去群148317126里找人帮你

回答4：

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