用mciExecute("play f:\bg.MID")播放声音，怎样自动重复播放呢？

iwo99 2003-03-06 10:39:39

谢谢！

...全文

220 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

kofer999 2003-03-06

打赏
举报

同意楼上

Zhang_1978 2003-03-06

打赏
举报

用sndPlaySound函数，第二个常数可以设置为重复播放

Sean918 2003-03-06

打赏
举报

这...这......

楼上的，你手上代码很多嘛　

Girl1983 2003-03-06

打赏
举报

来信要完整代码
girl19832026@163.com

Girl1983 2003-03-06

打赏
举报

用Timer监视
MCIStatusLen = 15
MCIStatus = String(MCIStatusLen + 1, " ")
RetValue = mciSendString("STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0)
If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
RetValue = mciSendString("PLAY BackgroundMusic FROM 0", "", 0, 0)
End If

northwolves 2003-03-06

打赏
举报

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
autorepeat "f:\bg.MID", 9

End Sub
Sub autorepeat(ByVal midpath As String, ByVal n As Integer) 'play n times
For i = 1 To n
mciExecute "open " & midpath & " alias temp"
mciExecute "play temp wait"
mciExecute "close temp wait"
Next
End Sub