VB代码之背景音乐

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByValuReturnLength As Long, ByVal hwndCallback As Long) As Long '调用播放音乐的话需要写入这段代码
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long '调用ShortPath子过程需要写入这段代码

Dim TempDataPath As String '定义全局变量
Private Sub Form_Load()
TempDataPath = App.Path + "背景音乐1.mp3" '自己改地址把
mciSendString "play " & ShortPath(TempDataPath), vbNullString, 0, 0 '注意play后面有个空格
End Sub
'使用该调用音乐代码可以在音乐还未停止前调用其他的音乐，且不会中断之前调用的音乐。

Private Function ShortPath(pathname As String)
Dim s As String
s = String(LenB(pathname), Chr(0))
GetShortPathName pathname, s, Len(s)
ShortPath = Left(s, InStr(s, Chr(0)) - 1)
End Function

Private Sub Form_Unload(Cancel As Integer)
mciSendString "stop " & TempDataPath, vbNullString, 0, 0 '停止播放音乐，注意stop后面也有一个空格
End Sub