ＶＢ如何使主板的发出声音，报警

[qpzl001]

ＶＢ如何使主板的发出声音，报警?

[wzzwwz]

Beep

VB声明
Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
说明
用于生成简单的声音
返回值
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
参数表
参数 类型及说明
dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略
dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略
注解
在windows95中，这个函数简单的播放默认系统响铃

[wzzwwz]

Option Explicit

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

Private Sub Command1_Click()
Beep 200, 1000
End Sub

[qpzl001]

谢谢

[jxwangjm]

真是的，直接用beep就可以了，根本不用引用API函数
全称是
VBA.Interaction.Beep
简称是Beep

[CrazyHosptial]

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

Private Sub Command1_Click()
Dim A As Long, B As Long
A = CLng(1000) '频率
B = CLng(1000) '长度
APIBeep A, B
End Sub