播放声音而不中断其他播放声音(VBA)

时间:2019-04-16 11:39:48

标签: vba audio powerpoint

我有一个可以在PowerPoint演示文稿中播放声音的代码,但是如果我让它一个接一个地播放2种声音,则第一个声音将停止,而第二个声音将播放。所以第一个声音被第二个声音打断了。

我尝试使用不同的Flags做实验,但是我没有一个想要实现的。我当前正在使用SND_ASYNC标志。

这是当前代码(在模块中):

#If VBA7 Then
Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Public Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

Sub playSound(SoundFile As String)
sndPlaySound32 SoundFile, SND_ASYNC
End Sub

我想要一个能播放声音的代码版本,仅使其在完成时停止并且不会被其他声音打扰。

0 个答案:

没有答案