Question

vbapi,beep函数怎么用

vb API 中beep 有两参数　参数1、Long，声音频率（从37Hz到32767Hz）。参数2、Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止---------我输入以下，却听不到声音？？。。还有什么是声音频率？？Private Declare Function Beep Lib "kernel32" _(ByVal dwFreq As Long, _ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()beep (500,3000)End Sub

Answer 1

beep过时了,建议用APIBeep,VB中的声明:
'// 让系统小喇叭发出声音
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
参数说明:
dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略
dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略

使用方法:
APIBeep 2000, 100