Question

VB程序 怎么用mciExecute()指令自动播放音乐

我想做一个程序，当If s = 100时用mciExecute()指令自动播放音乐
应该是：If s = 100 then
x=mciExecute("play c:\**********")
End If
但是一运行就显示实时错误类型不匹配，然后 x=mciExecute("play c:\**********")被拉黄，这是为什么？

Answer 1

Public 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

dim sb as string
sB = String(255, " ")
mciSendString "open c:\xxx.wav alias wav", sB, Len(sB), 0
mciSendString "play wav ", sB, Len(sB), 0

追问

我想用mciExecute指令

Answer 2

在代码前加
dim x as long

或者把x=换成call