如何在vb中使得机器发声？

Question

用API播放wav文件:
Private Const SND_ASYNC = &H1        '  异步播放
Private Const SND_LOOP = &H8        '  循环
Private Const SND_SYNC = &H0        '  同步
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long在要发声的地方使用下述语句:
    PlaySound "文件名.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
  

Answer 1

谢谢楼上两位，不过，我是要喇叭发声，所以PlaySound 似乎没有用（以前时过），而alert好象也不管用，但我的机器确实可以发出多达12种声音，不过该程序是delphi 写的，不知在vb中如何实现，实在苦恼。

Answer 2

　　使用VB中的beep语句只能发出一种声音。如果想发出不同声音，可以使用API函数。Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()
　Dim frequency As Long　frequency = CLng(txtFrequency.Text)
　APIBeep frequency, 500
End Sub  

Answer 3

alert发出的声音实在不甘恭维，时间长度也不好控制，
to bytheway，将该 apibeep放入程序，机器仍不发声，alert又不好控制，真的奇怪。

Answer 4

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long  
public sub Sound(byval lngVolume as long,byval lngHowLongTime as long)  '第一個參數為音量,第二個為時間長短Beep lngvolume, lnghowlongtime
end sub'以上加入公用模組'調用例:
Private Sub Form_Load()
   Sound 1000,80
End Sub'給分啦......xixixixi

Answer 5

我试过没问题啊？Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()
　Dim frequency As Long　frequency = 2000 ’指频率
　APIBeep frequency, 500
End Sub  

Answer 6

各位老大，我的机器可能是没声卡...等等，这个apibeep在它上面运行只是“ti”的一声，TMD，这个破公司机器上都不配软驱（更别说光驱，vb只好从网上down）发声，但为什么哪些带着定制控件的程序可以发声，某些免费软件运行时都可以出声呢？

Answer 7

这样：Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Form_Load()
  Dim frequency As Long  frequency = 2000 '指频率
  APIBeep frequency, 500  frequency = 200 '指频率
  APIBeep frequency, 500End Sub
是不是有2声？
“ti-bu”这个程序不需要声卡

Answer 8

呵呵,难道没有去我网站?http://ygyuan.go.163.com/
http://ygyuan.3322.net/

Answer 9

上面的代码只适合 WinNT 系统,对 Win9X 是不能控制发声频率的.为什么不去我的网站看看?有你想要的东东.