sndPlaySound  API函数可以播放byte类型的数组,你只要向它提供该数组的地址即可,如定义 wav() As Byte
可以用wav作为参数。

解决方案 »

  1.   

    那我使用一下代码为什么不能成功?有什么错吗?请指出。谢谢!
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
    Dim Buffer() As BytePrivate Sub Command1_Click()
    Open "c:\abc.wav" For Binary Access Read As #1
       ReDim Buffer(1 To LOF(1))
       Get #1, , Buffer
       Close #1
    MsgBox "ok"
    End SubPrivate Sub Form_Load()
    a = sndPlaySound(Buffer(), SND_ASYNC Or SND_NODEFAULT)
    End Sub