Question

将音频文件完全嵌入在EXE文件中（VB 在线等U)

俺们想把WAV，MP3这样的文件嵌在EXE中，不需要用APP.PATH这样的路径来获取相对位置，直接从EXE的内部调用经过编译的声音的内容！！大侠指点一下小弟吧，这个问题困扰我很久了，希望能给我源代码，让O来参悟一下！！在线等

Answer 1

请参看这个问问： http://wenwen.soso.com/z/q187769098.htm 就是你要的答案通过程序加载指定目录释放MP3文件然后去调用播放（我这里给为了方便就释放到D盘吧，MP3文件名是1.mp3；按钮1播放按钮2停止播放） 打开VB-工具-资源编辑器（若没有则在外接程序-外接程序管理器-启动加载 VB6资源编辑器） 打开VB6资源编辑器后选择自定义资源-选择你的MP3文件，然后点击保存！ 代码如下： Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Form_Load() Dim appexe() As Byte Dim filenum As Long appexe = LoadResData(101, "CUSTOM") '这里的101是标识号,"CUSTOM"是类型,这个就是和你自定义资源属性里写的一一对应 filenum = FreeFile Open "d:\1.mp3" For Binary As #filenum '在D盘释放1.mp3文件 On Error Resume Next '忽略错误 Put #1, , appexe Close #filenum End Sub Private Sub Command1_Click() mciExecute "play d:\1.mp3" '播放mp3文件 End Sub Private Sub Command2_Click() '停止播放mp3文件 mciExecute "stop d:\1.mp3" End Sub Private Sub Form_Unload(Cancel As Integer) mciExecute "stop d:\1.mp3" Kill "d:/1.mp3" '退出时删除释放的mp3文件 End Sub