使机箱内的小喇叭发出不同的声音

　2006-02-27 11:54:10　来源：WEB开发网　　　

核心提示：使用VB中的beep语句只能发出一种声音，如果想发出不同声音，使机箱内的小喇叭发出不同的声音，可以使用API函数，OptionExplicitPRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLo

使用VB中的beep语句只能发出一种声音。如果想发出不同声音，可以使用API函数。

OptionExplicit
PRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong

PrivateSubCommand1_Click()
　DimfrequencyAsLong

　frequency=CLng(txtFrequency.Text)
　APIBeepfrequency,500
EndSub->