Question

VB beep 函数问题，调用beep函数后没有声音。

我想写一个程序让计算机发出翁鸣声，但系统没有声音是怎么回事？
程序如下，麻烦高手帮我解决这个问题。谢谢了
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim RET As Long
RET = Beep(800, 2000) ' 以80HZ的频率响2秒钟
End Sub

Private Sub Command2_Click()
End
End Sub
我已将音量调到最大，并且没有静音。我试过我这个程序在有些电脑上能发声，但在有些电脑上却不能发声.此外我想问一下，我的电脑上beep语句可以发声，就是调用beep函数不能发声。

Answer 1

程序没问题，查看你的系统音量控制，是否调到最大，或选了静音

Answer 2

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 800, 2000 ' 以80HZ的频率响2秒钟
End Sub

Private Sub Command2_Click()
End
End Sub

Answer 3

不用API：
Private Sub Command1_Click()
Beep
End Sub