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