关于vb报警声的播放

发布网友 发布时间：2022-04-20 08:09

我来回答

共2个回答

热心网友 时间：2023-06-26 17:38

如果你要实时监控温度值给出报警的话那么就需要添加一个TImer控件：
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hMole 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

热心网友 时间：2023-06-26 17:39

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追问帮我看看我追问的第一位哥们的问题，怎么弄？