Beep函式

該函式可以通過揚聲器發出提示音

語言參考

Beep 函式

通過計算機的揚聲器發出聲響。

Public Sub Beep()

備註

聲響的音調與持續時間取決於硬體和系統軟體，因此隨計算機不同而不同。

注意

Beep 函式需要 SafeTopLevelWindows 級別的 UIPermission，這可能會對它在部分信任情況下的執行產生影響。有關更多信息，請參見請求許可權和 UIPermission Class。

示例

本示例通過 Beep 函式，使計算機的揚聲器發出一個長的、不間斷音頻。

Visual Basic 複製代碼

Dim I As IntegerFor 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代表發聲的長短

調子上限值：32767，下限值：37（測試數據來自PowerShell）
例如：Beep 600,500就表示讓Visual Basic在500毫秒內唱出一個600的調子

Beep函式的參考用法

要求

命名空間： Microsoft.VisualBasic

模組： Interaction

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

請參見

參考

Visual Basic 運行時庫成員

其他資源

播放聲音

API函式

BOOL Beep(DWORD dwFreq, // sound frequency, in hertzDWORD 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;}

異常狀況

Exception	Condition
HostProtectionException	在不允許訪問用戶界面的伺服器（例如 SQL Server）上執行此方法。