使机箱内的小喇叭发出不同的声音
2006-02-27 11:54:10 来源：WEB开发网核心提示：使用VB中的beep语句只能发出一种声音，如果想发出不同声音，使机箱内的小喇叭发出不同的声音，可以使用API函数，OptionExplicitPRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLo
使用VB中的beep语句只能发出一种声音。如果想发出不同声音，可以使用API函数。
OptionExplicit
PRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
PrivateSubCommand1_Click()
DimfrequencyAsLong
frequency=CLng(txtFrequency.Text)
APIBeepfrequency,500
EndSub->
OptionExplicit
PRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
PrivateSubCommand1_Click()
DimfrequencyAsLong
frequency=CLng(txtFrequency.Text)
APIBeepfrequency,500
EndSub->
[]
- 好的评价 如果觉得好，就请您
0%(0) 
- 差的评价 如果觉得差，就请您
0%(0) 
中查找“使机箱内的小喇叭发出不同的声音”更多相关内容
中查找“使机箱内的小喇叭发出不同的声音”更多相关内容更多精彩
赞助商链接
