vb背景音乐

来源：百度知道 编辑：UC知道 时间：2024/06/15 05:07:15
现有一程序，我想加入背景音，且最后能放到其他机子上也能用（不要告诉我将音乐文件一起手工copy!!!）我要完整码，最好能加点注释。谢谢啊！！！

比如你的程序在d盘的123文件夹内...
你把歌曲放在123文件夹下的music文件夹里
那么你就可以用 路径 app.path & "\music\1.mp3" 调用
也就是说,不管你把程序放在哪个盘,只要使用app.path这个函数就可以获得当前根目录路径...

加入音乐本来就是调用文件，肯定要有音乐文件，你可以把MP3和EXE放在一起

Public 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

Public Sub 音乐()
Dim Res As Integer, Ret As String * 1024
If blnBaojing = False Then Exit Sub
'Res = mciSendString("play " & APPPATH & "Shili.wav from 3000 to 8000", Ret, 1024, 0)
Res = mciSendString("play " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放

End Sub

Public Sub 停止播放()
Dim Res As Integer, Ret As String * 1024
Res = mciSendString("STOP " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放
Res = mci