如何调用声音文件？

Question

'先在标准模块里声明一个API函数
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
'在相应模块里执行下代码mciSendString "close  " 文件名, vbNullString, 0, 0
mciSendString "open  " 文件名, vbNullString, 0, 0
mciSendString "play  " 文件名, vbNullString, 0, 0
以上可以播放任何声音文件

Answer 1

用multimedia Mci控件最简单了。
mmci.filename="...."
mmci.play就ok了。