Question

怎么把MP3文件用VB添加到EXE文件中

我想设计一个程序，点击按钮1即可播放MP31，点击按钮2即可播放MP32，但MP3是存在于EXE中的，不是从文件夹中打开，请问应该怎么编？

Answer 1

把MP3文件用VB添加到EXE文件中的方法：
1、合进exe文件里的话，那么这个文件就无法再储存新数据了，只能读取。要储存新数据，就必须把它释放出来成为单独的文件才行，这样似乎就意义不大了。
如果确实想这么做，那么可以把data.alice文件作为资源文件和程序一起编译进exe文件里，在程序首次运行（即data.alice文件不存在的情况下）时把data.alice文件释放出来即可，然后按正常的方法打开它即可，以后再次运行程序的时候（即data.alice已存在的情况下）就无需再释放文件了。
2、通过程序加载指定目录释放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

Answer 2

楼主是想添加MP3文件是吧？
思路：通过程序加载指定目录释放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

Answer 3

读写资源文件吧 百度一下很多代码。