怎么设置窗体的背景音乐

如何设置窗体的背景音乐？
怎么能让一个窗体能有音乐呢？

------解决方案--------------------
播放背景音乐，最好是把音乐放在资源文件中，用API函数PlaySound或者sndPlaySound直接播放资源即可。而且可以循环播放：

VB code

Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long 'API判断数组为空或没有初始化

Private Const SND_ASYNC = &H1 '异步播放，否则就独占播放
Private Const SND_NODEFAULT = &H2 '不使用缺省声音
Private Const SND_MEMORY = &H4 '指向一个内存文件
Private Const SND_FILENAME = &H20000 '指向一个实际文件
Private Const SND_LOOP = &H8 '循环播放
Private Const SND_ALIAS_START = 0 '结束播放

Dim B() As Byte'定义资源
Dim IniArray As Long '判断数组B()是否初始化

Private Sub Command1_Click() '播放内存资源
    B = LoadResData(101, "CUSTOM")
    IniArray = SafeArrayGetDim(B)
    sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
End Sub

Private Sub Command2_Click() '停止播放并释放内存资源
    If IniArray > 0 Then 
       sndPlaySound B(0), SND_ALIAS_START
       Erase B '释放动态数组所使用的内存资源 
    endif 
End Sub

怎么设置窗体的背景音乐

相关推荐