📄 18823.html
字号:
<html> <head> <title>Re: 如何产生1Khz 的 Beep声?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 如何产生1Khz 的 Beep声?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by Sun Jack on September 11, 1999 at 20:30:39:<p>In Reply to: <a href="18776.html">如何产生1Khz 的 Beep声?</a> posted by VB 新手 on September 10, 1999 at 19:43:40:<p>: Hi 各位前辈高手:<p>: 请教大家如何使用VB 产生 一个<br>: 短暂的 1KHz 或 1.5 KHz 的 "哔" 声 ?<p>: 我试过用VB 的函式 "Beep" ,但是声音<br>: 很小而且不清楚!!<p>: Thanks all ....<p>: balzen 1999.9,10<p>Option Explicit<p>Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long<p>Private Sub Form_Load()<br> Dim i As Long<br> <br> For i = 1000 To 1500<br> BeepAPI i, 1<br> Next i<br>End Sub<p><p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18823--><!--top: 18875--><li><a href="18875.html">Re: 如何产生1Khz 的 Beep声?</a> <b>新手小芳</b> <i>15:06:52 9/13/99</i>(<!--responses: 18875-->0)<ul><!--insert: 18875--></ul><!--end: 18875--></ul><!--end: 18823--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -