Question

VB 如何 打开程序播放mp3或wma 背景音乐？

Answer 1

播放资源文件文件中的声音
点击vb菜单-工具-资源编辑器,用鼠标拉宽,倒数第二个按钮,把你的wav文件添加进去,类型名为"WAVE",标识号为"MySound",注意都要带上双引号,然后保存资源文件,例子及代码如下:

'通用声明
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC& = &H1
Private Const SND_NODEFAULT& = &H2
Private Const SND_RESOURCE& = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long

'调用
hInst = App.hInstance
sSoundName = "MySound"
iFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT
lRet = PlaySound(sSoundName, hInst, lFlags)

mp3不支持在资源文件中直接播放,需要释放到硬盘里才能播放,不仅只解决了表象,且需要使用对应的另一个api函数,建议找一个格式转换软件转一下,应该费不了多大事

Answer 2

在 “工程”->"部件"中添加“windows Media player ”
然后放在窗体上
private 苏北 form_load（）
WindowsMediaPlayer1.url="" ' 路径和文件名例如： "d:\歌曲\追梦人.MP3"

Answer 3

使用wmp控件
url属性设置为 音乐 路径
使用play方法播放

追问

如何利用资源文件，我想把它嵌入进去

追答

资源文件不能直接播放，还是先保存，然后播放的时候释放出来吧。