Question

关于API函数mciSendString在vb中MP3播放的问题

我用这个函数一开始可以，后来不出声了。
代码：
Option Explicit
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 "play E:\新建文件夹\下载文件\下载\文件\20081101203006.mp3", vbNullString, 0, 0
End Sub

Private Sub Command2_Click()
mciSendString "pause E:\新建文件夹\下载文件\下载\文件\20081101203006.mp3", vbNullString, 0, 0
End Sub
怎么办！！！

Answer 1

您没有设置关闭，所以再次播放时候出错您可以参照此例子 http://tieba.baidu.com/f?kz=122934702