如何使VB6代码实现MP3的重复播放？

HVB6 发布于 2015-02-15 11:29， 739 次点击

以下的VB6代码实现MP3的播放，但只能播放一次，如何修改代码，使其实现重复播放同一首歌？
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 Command1_Click()
mciSendString "open e:\梁祝.mp3 alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub

3 回复

yangfrancis2015-02-25 20:50

使用MMControl

MMControl1.FileName="...mp3"

Private Sub MMControl1_StatusUpdate()
If MMControl1.Position = MMControl1.Length Then
MMControl1.Position=0

End If
End Sub

HVB62015-02-27 20:04

回复 2楼 yangfrancis

使用MMControl控件，等于重新编一个实现MP3播放的程序，不会做。

lianyicq2015-03-02 09:59

回复 3楼 HVB6

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 Command1_Click()
   mciSendString "open e:\梁祝.mp3 alias mc", 0, 0, 0
   'mciSendString "play mc", 0, 0, 0
   mciSendString "play mc repeat",0,0,0
End Sub