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

全局代码：

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()

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