API函数问题

来源：百度知道 编辑：UC知道 时间：2024/06/18 04:21:15
使用函数怎么在VB程序中加如声音，如何控制播放、停止？？？？
（给个例子）
不行啊，大哥

检查一下代码看看或者你上机试试！！！！！

通过后把完整代码补充。谢谢的回答！

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Const SND_SYNC = &H0
Dim Sheng() As Byte
Private Sub Command1_Click()
'播放文件声音
sndPlaySound("C:\1.WAV", SND_SYNC)
End Sub
Private Sub Command2_Click()
'播放内存声音
Sheng = LoadResData(1001, "wave")
sndPlaySound Sheng(0), SND_MEMORY Or SND_ASYNC
End Sub
Private Sub Command2_Click()
'播放停止
sndPlaySound vbNullString, SND_MEMORY Or SND_ASYNC
End Sub