以下的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

使用MMControl


MMControl1.FileName="...mp3"



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

使用MMControl控件，等于重新编一个实现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
   mciSendString "play mc repeat",0,0,0
End Sub

收到的鲜花

• HVB6 于 2015-03-02 12:54 送鲜花  5朵   附言：我很赞同