Воспроизведение звука без прерывания других звуков (VBA) - PullRequest
Новая
       12

Воспроизведение звука без прерывания других звуков (VBA)

0 голосов
/ 16 апреля 2019

У меня есть код, который может воспроизводить звук в презентации PowerPoint, но если я заставлю его воспроизводить 2 звука один за другим, первый остановится, а второй будет воспроизведен. Таким образом, первый звук был прерван вторым звуком.

Я попытался поэкспериментировать с разными флагами, но ни один из них не подходит. В настоящее время я использую флаг 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

Я хочу иметь версию кода, которая воспроизводит звук и останавливает его только по окончании, и не прерывает другой звук.

...