循环播放Midi的程序如下:
'''
open c:\test.mid alias MyWav
S=String(256,chr(0))
mciSendString "status MyWav mode",S,Len(S),0
if Left(S,7)="stopped" Or Left(S,2)="停止" Then
mciSendString "seek MyWav to start",vbNullString,0,0
mciSendString "play MyWav",vbNullString,0,0
end if
'''
程序中放置一Timer控件,把以上代码放于Timer1的Timer事件中,把Timer1的Interval
属性改为100