Visual Basic 语言参考

API函数

Visual Basic 语言参考

Beep 函数

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

Public Sub Beep()

备注

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

注意

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

示例

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

Visual Basic 复制代码

Dim I As Integer

For I = 1 To 100 ' Loop 100 times.

Beep ' Sound a tone.

Next I

智能设备开发人员说明

不支持此函数。

如果想让Visual Basic使用Beep发出更多更好听的音乐，则在开头定义函数：

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

然后就可以使用多参数的Beep了，比如：

Beep x,y

其中x代表声音的调子，y代表发声的长短

（上限值和下限值需要自己摸索）例如：Beep 600,500就表示让Visual Basic在500毫秒内唱出一个600的调子

要求

命名空间： Microsoft.VisualBasic

模块： Interaction

程序集： Visual Basic Runtime Library（在 Microsoft.VisualBasic.dll 中）

请参见

参考

Visual Basic 运行时库成员

其他资源

播放声音

API函数

BOOL Beep(

DWORD dwFreq, // sound frequency, in hertz

DWORD dwDuration // sound duration, in milliseconds

);

程序示例：

#include <windows.h>

int main ( void )

{

int i = 2 ;

while ( i-- )

{

//Beep函数，使扬声器发出简单声音

//要调用这个函数需要加上头文件windows.h

//在Visual C++ 6.0下运行通过

Beep(1000,1000);

}

return 0;

}