UC知道VB调用API函数
来源：百度知道 编辑：UC知道 时间：2024/05/18 05:33:24
在窗体上面有一个控件,名字为COMMAND1 当按下他的时候,计算机就一直发出声音,程序 源代码哪里出错了?
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = 50
b = -1
Call Beep(a, b)
End Sub
高手只点 谢谢
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = 50
b = -1
Call Beep(a, b)
End Sub
高手只点 谢谢
代码没问题,是a,b的值不当
a,是频率,50Hz有点低,听起来像日光灯上镇流器发出的嗡嗡声,
a=440试试
b,是时长,以ms为单位,取个大一点的数值
程序并没又出错，你知道你这API 是干什么的吗
MSGBOX A MSGOBX B 以后 A =50 B=-1 没什么变化