IDC资讯中心
PrivateDeclareFunctionsndPlaySoundLib”Winmm.dll”Alias”sndPlaySoundA”(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong
PrivateSubCmdplay_Click()
DimSoundFileAsString,ResultAsLong
SoundFile=”C:\Pwin98\Media\TheMicrosoftSound.WAV”
Result=sndPlaySound(SoundFile,1)
EndSub->
