首页 相关文章 使机箱内的小喇叭发出不同的声音

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

使用VB中的beep语句只能发出一种声音。如果想发出不同声音,可以使用API函数。
  
  OptionExplicit
  PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
  
  PrivateSubCommand1_Click()
   DimfrequencyAsLong
  
   frequency=CLng(txtFrequency.Text)
   APIBeepfrequency,500
  EndSub->

[ 查看全文 ]

2016-02-19 标签:

使机箱内的小喇叭发出不同的声音的相关文章

手机页面
收藏网站 回到头部