Question

用 VB 嵌入一个别的程序。点击时直接运行。如想加一个音乐，一点击就直接听。

要求最后只是一个exe文件。不要单独再加一个音乐文件。
也就是说音乐文件装在exe里面了，单独看不到
<<<⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”>>>这一句怎么操作？？？？？

Answer 1

就是 添加自定义资源 繁体转简体有一定语义出入的

右击上面的链接 目标另存为 保存到硬盘后 改扩展名为 .rar 双击就有我图片内附的源代码的 运行后程序即自动读取C:/test.mid文件播放 ====================================== 二、 直接播放EXE文件中的声音文件 使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。 ⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器” ⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下： 类型： "WAVE" 标识号： 102 语言： 中文（中国） ⑶保存资源文件，写如下代码： Option Explicit Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public Const SND_ASYNC = &H1& Public Const SND_MEMORY = &H4& Private Sub Command5_Click() 注释：播放 WAV 文件 Dim bArr() As Byte bArr = LoadResData(102, "WAVE") sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub ⑷按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV 文件的声音了。 ================================================ 上面这个是嵌入WAV音频文件直接播放的方法 如果是其它格式 如mp3 wma等 建议使用下面这个通用解压函数将资源文件释放到硬盘上一个文件夹下 再用控件读取绝对路径 Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String) Dim Temp() As Byte Temp = LoadResData(ResID, ResName) Open UnResPath For Binary As #1 Put #1, , Temp() Close #1 End Function 调用方法就好像这样 Private Sub Command1_Click() Call UnRes(102, "CUSTOM", "c:\dd.mp3") '下面你再写读取C盘 dd.mp3的代码就可以了 End Sub 最后提示 如果添加任何非图片或非ico 的文件 请使用VB资源编辑器中的 添加自定义资源 按钮(工具栏倒数第二个图标按钮) 打开VB资源编辑器的方法是 外接程序 > 外接程序管理器 勾选 VB资源编辑器一项 同时勾选 在启动中加载 和 加载/卸载 两项 确定后 在工具菜单下即有资源编辑器一项

Answer 2

用好vb解决这个怕是有些难.给你个别的方法吧:
用flash,把音乐导入一个flash中,生成swf文件中,再在flash播放器中,通过文件菜单中的"创建播放器",就可生成一个exe文件了.exe文件通常会比原文件大几百K.
===========================================
以上做法完全符合你的要求:仅有一个exe文件.音乐包在其中.

Answer 3

楼上俩卫的回答都可以
不知道楼主希望什么