关于VB sndPlaySound

来源：百度知道 编辑：UC知道 时间：2024/06/18 17:18:11
我用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_LOOP = &H8&
Private Const SND_MEMORY = &H4&
Private Const SND_NODEFAULT = &H2&
Private Const SND_NOSTOP = &H10&
Private Const SND_SYNC = &H0&

Private Sub Command1_Click()
Dim rc As String
rc = sndPlaySound("E:\ringin.wav", SND_ASYNC Or SND_LOOP)
End Sub

为何播放出来的却是“咚咚声”？

还有怎样连续播放五次这个声音？

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8

Private Sub Command1_Click()
i = 0
Do While i < 5
i = i + 1
PlaySound "E:\ringin.wav", 0, SND_FILENAME Or SND_SYNC
Loop
End Sub

试试这个吧。

用Multimedia MCI 控件来播放声音效果非常好，而且可以识别人声音格式也非常多，同时它也支持AVI的播放。