直接播放EXE文件中的声音文件

使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
类型： "WAVE"
标识号： 102
语言： 中文（中国）
⑶保存资源文件，写如下代码：
Option Explicit

Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1&
PrivateConst SND_MEMORY = &H4&
Dim bArr() As Byte
Private Sub Form_Load()
bArr = LoadResData(101, "custom") '最好不要把这一句放在按钮的单击事件中，因为这样会使得播放声音显的迟缓一些
End Sub
Private Sub Command1_Click()
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
End Sub