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

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

OptionExplicit
PrivateDeclareFunctionAPIBeepLib”kernel32″Alias”Beep”(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong

PrivateSubCommand1_Click()
　DimfrequencyAsLong

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