如何使计算机的蜂鸣器发出声音？就像 QB 里面的 PlaySound 一样？

Question

Private Sub Form Load()
    Beep
End Sub

Answer 1

private sub command1_click()
     beep
End sub

Answer 2

NOT BEEP
我是指让计算机的蜂鸣器发出指定频率的声音。我在做一个手机铃声的播放程序，别的都做好了，就差播放声音的一部分了。

Answer 3

retval = PlaySound("C:\Sounds\scream.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT Or SND_LOOP)

Answer 4

retval = PlaySound("C:\Sounds\scream.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT Or SND_LOOP)

Answer 5

http://ygyuan.go.163.com./
http://ygyuan.3322.net/有控件或DLL,以及源代码!