在VB6.0中插入音乐

来源：百度知道 编辑：UC知道 时间：2024/05/23 14:55:05
刚学编程3天，制作了一个小程序，并插入OLE音乐，但是发现音乐并没有和生成的EXE融合在一起，怎么办？

加入资源

（播放资源中的声音）

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_LOOP = &H8 ' 循环播放

Dim B() As Byte

Private Sub Command1_Click()
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
End Sub

以资源方式加入程序.