VB 播放二进制Wav音频资源文件，VB 播放二进制Wav音频资源，VB 播放二进制Wav音频文件，VB 播放Wav音频资源文件，VB 播放二进制Wav音频，VB 播放Wav音频资源，VB 播放Wav音频文件，VB 播放二进制Wav，VB 播放Wav音频，VB 播放Wav资源，VB 播放Wav文件，VB 播放 Wav，VB Wav 音频，VB Wav 资源，VB Wav 文件，VB Wav，VB sndPlaySound，VB winmm.dll，VB SND_ASYNC，VB SND_NODEFAULT，VB SND_MEMORY，VB SND_LOOP，LoadResData(101， "CUSTOM")，sndPlaySound B(0)， SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP。

VB 播放二进制Wav音频资源文件：

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1                                                   '将控制权立即转让给程序
Private Const SND_NODEFAULT = &H2                                               '不使用缺省声音
Private Const SND_MEMORY = &H4                                                  '指向一个内存文件
Private Const SND_LOOP = &H8                                                    '循环播放
Dim B()  As Byte

Private Sub Form_Load()
    B = LoadResData(101, "CUSTOM")
    sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
End Sub