龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

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

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
使用VB中的beep语句只能发出一种声音。如果想发出不同声音,可以使用API函数。
  
  OptionExplicit
  PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
  
  PrivateSubCommand1_Click()
   DimfrequencyAsLong
  
   frequency=CLng(txtFrequency.Text)
   APIBeepfrequency,500
  EndSub->

精彩图集

赞助商链接