敬业的IT人 互联网 佚名 2008-4-17 19:21:43

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

OptionExplicit
PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong

PrivateSubCommand1_Click()
　DimfrequencyAsLong

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

最新文章

VBCOM基础讲座之创建第一个COM对象[04-17]

VB中实现图像特技(2)[04-17]

VB6.0中类聚集关系的实现[04-17]

用VB实现鼠标的隐藏[04-17]

VB6中用DataReport做报表[04-17]

把最小化图标放到任务栏右下角[04-17]

相关文章