问个VB高手发出声音的问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:27:38
如用beep发生,好像要有音响才能听到吧.如没有音响,想让它发出类似报警的声音,怎么才能发出呢,就是想让系统发出声音,类似开机时的嘟嘟声.

如果用VB自带的BEEP，好象是要音箱，至少我测试时是从我耳机发出来的，不是从PC喇叭发出来。如果用API函数的BEEP，是从PC喇叭发出来的。API BEEP 定义：Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long第一个参数dwFreq是发声的频率，即什么调；第二个参数dwDuration为持续时间，即长音短音？要实现你的功能，可以使用这个API BEEP来模拟，很报欠，不能给你提供更多的帮助了，自己去研究一下吧，或者去网上搜索，呵呵。

打开你的api文本浏览器，导入文件后输入beep（选私有），然后复制到代码的通用部分，然后在load中 输入 beep 500,100 其中的500是频率（可以理解是声调），100是时间（单位是毫秒）

如果没有api文本浏览器的话 就把
Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
复制到通用部分，其他的自己发挥。。。。。。。。

错误了 beep是没有音响也能发声的.

Public Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub Main()
Call APIBeep(1000, 1000)
End Sub