把wav当成自定义资源放到资源文件里。使用时可以用LoadResData取出。参考一下示例...好像是那个ATM自动取款机的例子。

解决方案 »

  1.   

    楼上的同志们说的好象有问题哦。
    把Wav放进资源文件后取出来的是二进制的数据,请问用什么数据类型来存放?
    sndPlaysound函数的声明如下:
    Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    请问如何用它来播放二进制的波形数据?
      

  2.   

    'Form
    Private Const SND_ASYNC = &H1&
    Private Const SND_MEMORY = &H4&'播放声音的函数
    Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll"_ Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
    Private Sub Command1_Click()
    '"Pentium"、"WAVE":自定义
        Dim bArr() As Byte
        bArr = LoadResData("Pentium", "WAVE")
        
        sndPlaySoundFromMemory bArr(0), SND_MEMORY Or SND_ASYNC
    End Sub
      

  3.   

    FLASH都可以将WAV或者MIDI等声音文件整合进EXE去VB就不行???
      

  4.   

    完全可以保存成文件然后利用API函数播放,看看这个范例
    http://www.applevb.com/sourcecode/resfile.zip