Question

VB怎样让声卡发声

Answer 1

使用API函数，可以播放音乐！
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