在VB6.0中插入音乐

发布网友发布时间：2024-10-01 14:41

共2个回答

热心网友时间：2024-10-19 03:24

加入资源

（播放资源中的声音）

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

热心网友时间：2024-10-19 03:25

以资源方式加入程序.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com