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

怎么把MP3文件用VB添加到EXE文件中
怎么把MP3文件用VB添加到EXE文件中思路：通过程序加载指定目录释放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。