18823.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 27 行

<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>