# Re: 如何产生1Khz 的 Beep声?

Posted by Sun Jack on September 11, 1999 at 20:30:39:

In Reply to: 如何产生1Khz 的 Beep声? posted by VB 新手 on September 10, 1999 at 19:43:40:

: Hi 各位前辈高手:

: 请教大家如何使用VB 产生 一个
: 短暂的 1KHz 或 1.5 KHz 的 "哔" 声 ?

: 我试过用VB 的函式 "Beep" ,但是声音
: 很小而且不清楚!!

: Thanks all ....

: balzen 1999.9,10

Option Explicit

Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Dim i As Long
For i = 1000 To 1500
BeepAPI i, 1
Next i
End Sub

Follow Ups:

- Re: 如何产生1Khz 的 Beep声? 新手小芳 15:06:52 9/13/99 (0)