Question

VB mmcontrol控件如何连续播放音乐文件

已经有单独的0-9数字的10个音乐文件(命名0-9)。我是想做一个彩票开奖语音报号器。假定text1中是我得到的5位数字，用一个for循环来取数从而得到需要播放的文件名。我现在只能播放最后一个，好像循环没有起作用。如何一次把5个数字播放完毕？
问题代码如下：
For i = 1 To 5
n = Mid(text1, i, 1)
MMControl1.Command = "close"
MMControl1.FileName = App.Path & "/声音0-9数字/" & n & ".wav"
MMControl1.Command = "open"
MMControl1.Command = "play"
Next

若以下回答无法解决问题，邀请你更新回答

Answer 1

循环间 加句延时 sleep 1000
api声明网上找下

追问

sleep 1000 是什么意思？加在哪个位置？

追答

private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

 For i = 1 To 5
           n = Mid(text1, i, 1)
           MMControl1.Command = "close"
           MMControl1.FileName = App.Path & "/声音0-9数字/" & n & ".wav"
           MMControl1.Command = "open"
           MMControl1.Command = "play"

sleep 1000
      Next

追问

谢谢，已经成功了，可是为什么运行点关闭时出现如下错误

没有弄这个之前是没有这种错误的……我已经在卸载事件里写了

    MMControl1.Command = "Close"

    End

是不是程序语句有漏洞啊？