使机箱内的小喇叭发出不同的声音
2016-02-19 17:54
今天图老师小编要向大家分享个使机箱内的小喇叭发出不同的声音教程，过程简单易学，相信聪明的你一定能轻松get！
OptionExplicit
PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
PrivateSubCommand1_Click()
DimfrequencyAsLong
frequency=CLng(txtFrequency.Text)
APIBeepfrequency,500
EndSub->
