在VB里能插入音乐吗？具体是怎么做的？

在VB里能插入音乐吗？具体是怎么做的？

api实现背景音乐方法： 在窗体上加入一个按钮，一个时间空间，输入如下代码： 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 Command1_Click()'这段代码是开始播放音乐，具体路径、歌名你可以选择你需要的，也可以放到初始事件里面 mciSendString "close F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma", vbNullString, 0, 0 mciSendString "open F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma", vbNullString, 0, 0 mciSendString "play F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma", vbNullString, 0, 0 End Sub Private Sub Form_Unload(Cancel As Integer)'这段代码是卸载窗体的时候，关掉音乐 mciSendString "close F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma", vbNullString, 0, 0 End Sub Private Sub Timer1_Timer()'这段代码是检测歌曲有没有播放完毕，如果播放完毕，则重复播放。如果你不需要重复播放，可不要这段代码 Dim S As String S = String(256, Chr(0)) mciSendString "status F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma mode", S, Len(S), 0 If Left(S, 7) = "stopped" Or Left(S, 2) = "停止" Then mciSendString "seek F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma to start", vbNullString, 0, 0 mciSendString "play F:\恢复\lwp\歌曲\mp3\歌曲\一万个理由.wma", vbNullString, 0, 0 End If End Sub '以上代码只是大概，具体的你可以根据自己需要编写，但愿对你有帮助

我想你能搞定的~！