【VB技巧】VB 播放二进制Wav音频资源文件

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