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

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

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

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

PrivateSubCommand1_Click()
　DimfrequencyAsLong

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