Окно сообщений и воспроизведение звука одновременно - VBA - PullRequest
Новая
       13

Окно сообщений и воспроизведение звука одновременно - VBA

0 голосов
/ 23 ноября 2018

В приведенном ниже коде песня воспроизводится первой, после чего отображается сообщение.Как отобразить Окно сообщений и Звук воспроизведения одновременно в приведенном ниже коде? 

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean

Private Sub CommandButton1_Click()
    Call PlaySound("c:\windows\media\tada.wav", 0, SND_ASYNC Or SND_FILENAME)
    Msgbox "Process completed successfully."
End Sub

1 Ответ

0 голосов
/ 23 ноября 2018 
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean

Const SND_ASYNC = &H1

Private Sub CommandButton1_Click()
    Call PlaySound("c:\windows\media\tada.wav", 0, SND_ASYNC Or SND_FILENAME)
    Msgbox "Process completed successfully."
End Sub
...