7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
TAGI 2001-09-10
- 打赏
- 举报
有谁知道1、2、3...对应的频率.麻烦张贴出来。。。万分感谢！！！＾b＾
pengcheng 2001-09-10
- 打赏
- 举报
同意。
firetoucher 2001-09-10
- 打赏
- 举报
同意楼上的
cjlong 2001-09-10
- 打赏
- 举报
Private Declare Function APIBeep Lib"kernel32"Alias"Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim aa As Long
aa = CLng(text1.Text)
APIBeep aa, 500
End Sub
Private Sub Command1_Click()
Dim aa As Long
aa = CLng(text1.Text)
APIBeep aa, 500
End Sub
Jneu 2001-09-10
- 打赏
- 举报
Beep
y1g1y1 2001-09-10
- 打赏
- 举报
ygyuan.go.163.com
benlovekelly 2001-09-10
- 打赏
- 举报
同意楼上的，不过你对声音的频率要有一定的了解。
sssoft 2001-09-09
- 打赏
- 举报
Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
前面参数是频率，后面参数是时值
前面参数是频率，后面参数是时值
BBBBadBoy 2001-09-08
- 打赏
- 举报
Beep 只能用于简单的发声吧？
skydg 2001-09-08
- 打赏
- 举报
gz
sssoft 2001-09-08
- 打赏
- 举报
使用Api函数
Beep
Beep
