VB中加入音乐的问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 23:49:16
1个工程 里面随便搞了点按钮
我是VB爱好与初学者
我就想在这个工程里加一个背景音乐 当工程生成exe 后
运行就有背景音乐
要求是: 不管放到哪个机器上都可以运行 都有音乐
但是只有1个EXE文件 不想加别的音乐文件 用 VB 调用 - -
具体怎么写?
可是其它好多exe小程序打开后 都有背景音乐的啊 而且也都是只有1个exe文件
没生成其它什么文件啊

可以使用资源文件来实现，但实现起来有点难度，可以自己搜索一下vb资源文件的使用

基本思路是资源文件里边以自定义数据的方式添加进你的歌曲，然后在程序运行的时候把资源文件释放出来保存为歌曲文件，再利用API或者其他控件调用该歌曲文件

在你的问价家里放好那首音乐。然后打包的时候加上这个音乐文件，路径用相对路径（app.path+"音乐\生日快乐.mp3")

加mmcontrol控件，在引用中Microsoft Multimedia Control 6.0(sp3)load 中 MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = "D:\PlatformTicket\Windows 登录音.wav" MMControl1.Command = "Open" MMControl1.Command = "Play"然后可以在定时器里 If MMControl1.mode = 525 Then '检查是否停止 MMControl1.Command = "Prev" MMControl1.Command = "Play" End If进行循环播放最后在unload中 MMControl1.Command = "Close"关闭播放器 或者Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallb