VB中播放声音

来源：百度知道 编辑：UC知道 时间：2024/05/29 07:17:18
问题是这样，我在用VB做一个记时器，希望记时过程中当时间还剩30秒的时候自动播放一遍铃声提示，时间到的时候播放两遍铃声提示，不知道这个代码该怎么写。
时间比较紧，希望高手赐教
要播放的铃声提示是一个WAV文件,并且是到时间自动播放，不用按别的按钮

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放的文件名(带路径)
'playCount 播放的次数
'JianGe 多次播放时,每次的时间间隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe < 1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 16 + 1
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub

Private Sub Form_Click()
PlayWavFile "C:\aaa.wav", 1, 1000
End Sub