Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 500, 200
End Sub
我之前也在网络上找过一些相关问题的答案。 但是跟我的情况不一样。 就是这样简单的一个函数。 Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() Beep 500, 200 End Sub 我自己的测试结果是用winxp的虚拟机也是笔记本的喇叭发声,beep()发声相对于非XP系统比较饱满,