在VB里怎么加背景音乐

1、直接进入VB的相关窗口，选择标准EXE打开。

2、这个时候d出新的对话框，需要找到Windows Media Player并点击确定。

3、下一步如果没问题，就根据实际情况设置其中的参数。

4、在文件那里，选择保存工程。

5、等完成上述 *** 作以后，继续点击确定。

6、这样一来会实现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 '以上代码只是大概，具体的你可以根据自己需要编写，但愿对你有帮助

其实不难。呃，建议原创一个界面。

先用XMLHTTP下载一首歌，然后用下面这段代码播放。

至于控制按钮，完全可以参考网上已有的代码。

譬如有个叫“土人MP3”的播放器不错。

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

C:\birthday.mid

alias

mc",

0,

0,

0

mciSendString

"play

mc",

0,

0,

0

End

Sub

---