Question

关于vb报警声的播放

帮忙编一个vb播放wav格式的报警声音的程序，wav文件存于vb工程文件夹的声音文件夹里面，文件名为baojing.wav。也就是说取绝对路径。有一个随机的温度值a(0),如果a(0)>=20,那么就播放这个报警文件，望给出具体程序，如果需要用到什么控件的，告诉我具体要怎么做。

Answer 1

如果你要实时监控温度值给出报警的话那么就需要添加一个TImer控件：
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Timer1_timer()
If a(0) >= 20 Then
PlaySound "F:\baojing.wav", 0, &H20000 Or &H1
End If
End Sub
声音文件所在的路径你根据自己的需要修改，如果与程序所在目录相同那么你可以用app.path

追问

我在通用里写了private....long 这块
在timer事件中写了
Select Case a(0)
Case a(0) >= 25
PlaySound App.Path & "\报警声音\BEEP1.WAV", 0, &H20000 Or &H1
End Select
可是当温度大于等于25后没有声音，是哪里错了吗

追答

Case a(0) >= 25
改成
Case is >= 25

追问

改不了c的思维，声音倒是有了，可是只是“当”的一声，我那个wav文件时持续两三秒的嘟嘟声哦，是不是后面的参数有问题，怎么改？

Answer 2

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0 '同步调用，声音播放完毕 程序才能继续
Const SND_ASYNC = &H1 '非同步调用，不必等声音播放完毕 程序即可继续
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8 '声音播放完毕后 从头重复播放 与SND_ASYNC(=&H1)使用
Const SND_NOSTOP = &H10 '如果其他声音正在播放 则不终止该声音的播放，而返回False
Const SND_MEMORY = &H4 '播放内存中的声音

'在你的程序中代码就可能如下
Dim sound As String
sound = App.Path & "\sound\baojing.wav"
if a(0)>=20 then sndPlaySound sound, SND_ASYNC Or SND_NODEFAULT

追问

帮我看看我追问的第一位哥们的问题，怎么弄？