怎样循环播放mid音乐？

[cuicen_simon]

mciSendString "open sound/bgmusic.mid type sequencer alias nn", 0, 0, 0
mciSendString "play nn from 0", 0, 0, 0
mciSendString "close animation", 0, 0, 0

这几行语句只能播放一次，怎样使用repeat参数？
我试了：
play nn from 0 repeat
play nn repeat
都不行。

是不是还有别的方法？

[sworddx]

最简单的办法是用windows media player控件。

[danielinbiti]

用status 名称 mode
mciSendString "status MyWav mode",S,len(S),0
if left(S,7)="stopped" or left(s,2)="停止" then
mcisendstting "seek MyWav to start",vbnullsting,0,0
mcisendstring "play MyWav",vbnullsting,0,0
end if
注
不过在 windos NT里传回的S可能等于"播放"或"停止"
MyWav 是音乐文件名

[cuicen_simon]

是否有相对完整的例子提供？

[danielinbiti]

晕,这还不完整
private sub command_click()
dim s as string
mciSendSting "Open pathname alias MyWav" ,vbnullstring,0,0
mciSendString "status MyWav mode",S,len(S),0
if left(S,7)="stopped" or left(s,2)="停止" then
mcisendstting "seek MyWav to start",vbnullsting,0,0
mcisendstring "play MyWav",vbnullsting,0,0
end if
end sub

[kbkingbird]

left(s,2)="停止"
对汉字也有效果 么？我是新手，问一下~谢谢~~

[danielinbiti]

Private Sub Command1_Click()
Dim i As String
i = "你说有效否"
Print Left(i, 2)
End Sub

left是根据字符来取，不是根据长度。

[cuicen_simon]

Private Sub Command1_Click()
mciSendString "open c:\downloads\bgmusic.mid alias nn", 0, 0, 0
mciSendString "play nn from 0", 0, 0, 0
End Sub

Private Sub Command2_Click()
Dim s As String
mciSendString "status nn mode", s, Len(s), 0
If Left(s, 7) = "stopped" Or Left(s, 2) = "停止" Then
mciSendString "seek nn to start", vbnullsting, 0, 0
mciSendString "play nn", vbnullsting, 0, 0
End If
End Sub

当单击按钮1的时候播放音乐，当音乐停止的时候再单击按钮2，可是s总是空。

[cuicen_simon]

稍微做些修改就好了。

Dim s As String * 20
mciSendString "status nn mode", s, 20, 0