100分！！！请教VB6.0中的背景音乐问题！

来源：百度知道 编辑：UC知道 时间：2024/05/17 04:02:49
我自学VB不久，是大菜鸟！所以能够给我又简单又能解决问题的答案最好，先谢了！

我想做个小程序，有背景音乐，就是一启动程序就有声音的，生成.exe后也有背景音乐，然后我把这程序传给朋友，在朋友电脑上运行时也能有背景音乐！

求大侠指点，我研究好久，好是不会，我快气死了！！！帮我解决了，还可以加分！
请讲清楚，不要理论性太强啊，我是菜鸟。
要不然也可以弄个例子给我看，源代码代码！！！！

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Load()
mciSendString "open X:\音乐地址.mp3 alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub

注意：
1. （ X：）是音乐所在盘符后面是音乐地址
2.程序测试的时候运行会出现把窗体关掉的时候音乐还在放的问题
只要生成EXE文件就不会有这个问题了

要你的音乐文件放在你文件包里

unload的事件或者程序的退出按钮里面send一个 close all 过去,就停下了

你可以将需要播放的音乐放在资源里，通过调用API或WMP播放