Question

关于VB API函数中的beep问题

API函数中beep的说明有提到：dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。
能具体帮我举一个持续时间为-1时的应用例子吗？这里提到的再次调用该函数是指再执行一次诸如beep a，t之类的指令的意思吗？
本人在自学vb中，对于一些愚蠢的问题望有高手解答！！！

Answer 1

机箱没有小喇叭（不是指音箱）就一声都听不到。
VB里面也有一个函数Beep，直接使用即可。
API函数中的BEEP前一个参数是频率，后一个参数是响的时间，这没有什么问题。问题是时间参数为-1的话它也就响一下。
持续时间很好理解，你放一个按钮，设定时间参数为5秒。那每按一下它就响五秒，在它响的时候你再按按钮，好像没反应，其实是有反应的，多按一下多5秒。

追问

的确它在响的时候按任何按钮都要等它响完才有回应，那有没有什么办法在它响的时候按按钮就立刻回应，类似中断服务程序那样。

追答

它是API函数，没那么容易中断的。
不过我们可以换一个角度来考虑：把beep放入定时器中，时间设短一点。通过控制定时器来控制beep。
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Beep 2500, 1
End Sub

Answer 2

我也想要，谁有源程序呀？