利用API函数播放Wav声音文件
PrivateDeclareFunctionsndPlaySoundLib"Winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong
PrivateSubCmdplay_Click()
DimSoundFileAsString,ResultAsLong
SoundFile="C:Pwin98MediaTheMicrosoftSound.WAV"
Result=sndPlaySound(SoundFile,1)
EndSub->
PrivateSubCmdplay_Click()
DimSoundFileAsString,ResultAsLong
SoundFile="C:Pwin98MediaTheMicrosoftSound.WAV"
Result=sndPlaySound(SoundFile,1)
EndSub->
- 上一篇:显示多媒体信息
- 下一篇:AutoCADR14与VB
精彩图集
精彩文章