利用API函数播放Wav声音文件

　2006-02-27 11:43:40　来源：WEB开发网　　　

核心提示：PRivateDeclareFunctionsndPlaySoundLib"Winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongPrivateSubCmdplay_Cl

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

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