Question

VB程序里面嵌入声音文件？

Answer 1

自定义资源

自定义资源用于在资源文件中存储大部分任何二进制类型数据。每一个自定义资源由一个唯一的索引或资源 ID 标识。自定义资源是在运行时使用 LoadResData 函数（以索引和格式为参数）从资源文件中抽取的。对于使用资源编辑器创建的自定义资源，其格式与在“编辑属性”对话框中输入的资源类型是相同的。格式字符串必须包括在双引号之内。

使用自定义资源时，有必要向应用程序添加代码，以便读取和显示包含在文件中的数据。这通常需要使用 Windows API 调用。可以被存储为自定义资源的公用数据类型有声音 (.wav) 和视频 (.avi) 文件。

自定义资源提供了一种简便的方法，可以在对用户隐藏资源文件的同时为一个应用程序存储自定义数据。

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Const SND_ASYNC = &H1 ' 异步播放
Private Const SND_NODEFAULT = &H2 ' 不使用缺省声音
Private Const SND_MEMORY = &H4 ' lpszSoundName 指向一个内存文件
Dim aaa() As Byte
使用的时候：
Ret& = waveOutGetNumDevs
If Ret& > 0 Then
aaa = LoadResData(103, "CUSTOM")
sndPlaySound aaa(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
Else
MsgBox "No soundcard detected !"
End If