Question

VB一直循环播放指定的歌曲

有两个按钮，一个是播放，一个是暂停。点击播放后就开始播放，完了就再从头开始重新播放，一直到按暂停为止

Answer 1

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
    mciSendString "open d:\05.mp3 alias mp3", vbNullString, 0&, 0& '打开设备，把d:\05.mp3换成你需要的歌曲，建议用相对路径，例如："close " & App.Path & "\05.MP3"
End Sub
Private Sub Command1_Click() '播放按钮
    mciSendString "play mp3 repeat", vbNullString, 0&, 0& '播放声音,repeat参数表示重复播放
End Sub
Private Sub Command2_Click() '暂停按钮
    mciSendString "pause mp3", vbNullString, 0&, 0& '暂停
End Sub
Private Sub Form_Unload(Cancel As Integer)
    mciSendString "close MP3", vbNullString, 0&, 0& '退出时关闭声音，否则程序退出，声音一直播放
End Sub

追问

没有用

Answer 2

什么播放器？播放器不同，代码不一样。

Answer 3

有两个按钮，一个是播放，一个是暂停。点击播放后就开始播放，完了就再从头开始重新播放，一直到按暂停为止

追问

是的