'Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As Long, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
Dim t As String, bb() As Byte
' t = ThisWorkbook.Path & "\SoundTest.wav"
t = "SystemStart"
t = "SystemExit"
' Call PlaySound(t, 0&, &H1)
' Call sndPlaySound(t, &H1)
bb = LoadResData(101, "wav")
Call sndPlaySoundFromMemory(bb(0), &H4 Or &H1)
'异步播放可以立即执行下面的代码
MsgBox "我被执行啦"
Debug.Print t
End Sub
2024-09-19 广告