在VB编程中，如何实现加入声音

要求：1.在一打开就循环播放，
2.并且这个音乐文件是自己添上，
3.还有就是这个文件和程序是在一起的，不是分开的。

可以添加 控件 如Media Player控件
Media Player控件的属性URL 是它要播放文件的地址 比如要放 E:\mp3\we.mp3
WindowsMediaPlayer1.URL = "E:\mp3\we.mp3"
就可以播放了

也有一种机器声音 输入代码 beep 就有“咚”的声音

添加一个WindowsMediaPlayer控件放到窗体里，然后写代码：

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "123.mp3" '这句代码的意思是播放程序所在文件夹中的123.mp3

'URL后面添地址,可以是网址

你可以 OLE 控件 把要的歌曲添进去就 可以文件和程序是在一起的
当启动 OLE 控件 歌曲就会播放

第一种Private Sub Form_Load()
Set a = CreateObject("wmplayer.ocx")
a.url = "E:\mp3\花好月圆.mp3" '你可在此改成你的乐曲
a.settings.playCount = 99999
End Sub

Private Sub Form_Unload(Cancel As Integer)
a.Controls.stop
a.Close
Set a = Nothing
End Sub

第二种 加个Windows Media Player控件