[求助]如何调用windows的小喇叭？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何调用windows的小喇叭？

共有2229人关注过本帖树形打印复制链接主题：[求助]如何调用windows的小喇叭？

找到没重的名

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：131 积分：2215 威望：0 精华：0 注册：2016/11/8 6:22:00

[求助]如何调用windows的小喇叭？ 发帖心情

Post By：2018/5/19 13:36:00 [只看该作者]

因为录入大量数字时，录入人员通常低头看数据，右手在小键盘飞快敲键，根本不抬头，所以我觉得messagebox不实用。我想在项目中用到一个报错的提示音，用以提醒用户。

就像打字重码的时候，系统就会让电脑主机就会发出“滴”的一声。这样就算工作环境中没有音箱，也能让用户听到报错的声音。

别人只是告诉我要用到windows 的Api: beep

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

dwFreq:Long，声音频率（从37Hz到32767Hz）。在windows95中忽略

dwDuration:Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略

但是具体怎么用，请老师给我详细说下。谢谢！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/5/19 14:38:00 [只看该作者]

全局代码：

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

Public Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal Type As Int32) As Boolean

然后命令窗口调用

Beep(150,2000) '我笔记本win10测试没有效果

MessageBeep(&H10) ‘测试有声音，不过不知道是蜂鸣还是笔记本喇叭的声音，自己试试（5种参数5种声音：0、&H10、&H20、&H30、&H40）

VB有特个特殊的函数用法，效果和MessageBeep(0)一样，试试执行

Interaction.Beep()

找到没重的名

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：131 积分：2215 威望：0 精华：0 注册：2016/11/8 6:22:00

Post By：2018/5/19 18:35:00 [只看该作者]

Interaction.Beep()试过了，可以直接用，简单有效。谢谢！

主题：[求助]如何调用windows的小喇叭？