通过

Beep 函数

  • 项目

更新：2007 年 11 月

通过计算机的扬声器发出声响。

Public Sub Beep()

备注

声响的音调与持续时间取决于硬件和系统软件，因此随计算机不同而不同。

说明：

Beep 函数需要 SafeTopLevelWindows 级别的 UIPermission，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见请求权限和 UIPermission Class。

示例

本示例通过 Beep 函数，使计算机的扬声器发出一个长的、不间断音频。

Dim I As Integer
For I = 1 To 100   ' Loop 100 times.
   Beep   ' Sound a tone.
Next I

智能设备开发人员说明

不支持此函数。

要求

命名空间：Microsoft.VisualBasic

**模块：**Interaction

**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）

请参见

参考

Visual Basic 运行时库成员

其他资源

播放声音