vb工程中如何添加音乐？

Question

我想在工程中添加背景音乐，用那个ole控件限制用wav格式的，而那个windows media player 又不会用啊？

Answer 1

仅仅添加个背景音乐，建议用API函数PlaySound,格式是wav

Answer 2

把你那个wav音乐文件做成资源文件，然后用LoadResData()函数调用。
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1 '异步播放，否则就独占播放
Private Const SND_NODEFAULT = &H2 '不使用缺省声音
Private Const SND_MEMORY = &H4 '指向一个内存文件
Private Const SND_FILENAME = &H20000 '指向一个实际文件
Private Const SND_ALIAS_START = 0 '结束播放
Dim B() As BytePrivate Sub Command1_Click() '播放
B = LoadResData(101, "CUSTOM")  '该wav文件在资源中的id为101，类型为自定义
sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY 
End Sub

Answer 3

你的问题已解决去看看吧，就是你贴的这个程序！
http://topic.csdn.net/u/20110319/15/417da86a-9f0f-437e-81c9-362c89803819.html?81361