PlaySound函数的声明如下:
----------------------------------------
下面是示例代码:
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub testPlaySound()
Call PlaySound(ThisWorkbook.Path & "\demo.wav", 0&, &H8 Or &H1)
'异步、重复播放demo.wav
版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://grooverve.blogbus.com/logs/55236996.html
End Sub
联系客服