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

PrivateDeclareFunctionsndPlaySoundLib"Winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong

PrivateSubCmdplay_Click()
DimSoundFileAsString,ResultAsLong
SoundFile="C:\Pwin98\Media\TheMicrosoftSound.WAV"
Result=sndPlaySound(SoundFile,1)
EndSub

最新文章

VB经验谈：限制输入的文本框[04-17]

用VB获取桌面图象[04-17]

用VB5.0从Recordset中打印列表[04-17]

巧用VBA自动处理Word表格[04-17]

VB中资源文件的具体使用方法[04-17]

VB编程的一些基础的问题[04-17]

相关文章