如何循环播放一段声音？

jaxxcyh

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal pszSoundName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub a()
    ' 播放声音文件 "d:\di.wav"，异步且循环播放
    PlaySound "d:\di.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP
End Sub

Sub StopLoopingSound()
    ' 停止所有循环播放的声音
    PlaySound "", 0, SND_PURGE
End Sub


运行a程序没有得到预期效果，声音文件只播放了一遍就没了。如何让声音能够循环播放？

lss001

'在顶部声明一下常量先
Const  SND_SYNC = &H0
Const  SND_ASYNC = &H1
Const  SND_NODEFAULT = &H2
Const  SND_MEMORY = &H4
Const  SND_LOOP = &H8
Const  SND_NOSTOP = &H10
Const  SND_PURGE = &H40
Const  SND_NOWAIT = &H2000
Const  SND_ALIAS = &H10000
Const  SND_ALIAS_ID = &H110000
Const  SND_FILENAME = &H20000
Const SND_RESOURCE = &H40004

jaxxcyh

写了个赛诗会的摇号程序，点击按钮时需要有音效，所以需要用到这个循环播放声音都代码。
lss001 写的常量声明放进去马上就行了。（我原来写的可能写错了所以一直没弄出循环的效果，感谢 lss001 帮我）
另外播放声音的windows API函数，可以用PlaySound函数，也可以用sndPlaySound函数。
这两个函数的声明部分大体上差不多，前者带三个参数，后者带两个参数。

'PlaySound函数的声明：
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal pszSoundName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long


'sndPlaySound函数的声明：
Private Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"  _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'相关的常量声明：
Const  SND_SYNC = &H0
Const  SND_ASYNC = &H1
Const  SND_NODEFAULT = &H2
Const  SND_MEMORY = &H4
Const  SND_LOOP = &H8
Const  SND_NOSTOP = &H10
Const  SND_PURGE = &H40
Const  SND_NOWAIT = &H2000
Const  SND_ALIAS = &H10000
Const  SND_ALIAS_ID = &H110000
Const  SND_FILENAME = &H20000
Const SND_RESOURCE = &H40004

'指定文件名，异步方式，循环播放：
PlaySound "d:\di.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP
'也可以直接写成：
PlaySound "d:\di.wav", 0, &H20009  '（SND_FILENAME Or SND_ASYNC Or SND_LOOP 位或运算的结果就是&H20009）

'停止播放：
PlaySound vbNullString, 0, SND_PURGE  

附上完整“赛事会摇号程序”文件

micch

把声音做成循环说100遍的声音

liulang0808

楼主可以考虑ontime看看是否可行的

jaxxcyh

lss001 发表于 2024-6-7 15:23
'在顶部声明一下常量先
Const  SND_SYNC = &H0
Const  SND_ASYNC = &H1

声明了常量也还是不行

jaxxcyh

liulang0808 发表于 2024-6-7 15:27
楼主可以考虑ontime看看是否可行的

具体怎么弄？写下代码行不？

liulang0808

jaxxcyh 发表于 2024-6-7 16:02
具体怎么弄？写下代码行不？

https://club.excelhome.net/blog-238368-1680.html?_dsign=907b57e7
可以参考下

lss001

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal pszSoundName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub playx() '不声明常量，直接使用常量也可以
    ' 播放声音文件 "d:\di.wav"，异步且循环播放
    PlaySound "d:\di.wav", 0&, &H1 Or &H8
End Sub

jaxxcyh

liulang0808 发表于 2024-6-7 16:09
https://club.excelhome.net/blog-238368-1680.html?_dsign=907b57e7
可以参考下

这个跟我说的问题似乎关系也不大

jaxxcyh

micch 发表于 2024-6-7 14:56
把声音做成循环说100遍的声音

就算把播放声音的那一句放到for循环里，它也只放一遍就哑了。不知道这什么鬼。