播放资源文件文件中的声音

VB提供的方法使我们可以很容易地使用资源文件中的字符、图片等资源。我们可以用以下方法播放资源文件中的wav声音：首先，在你的资源文件的源文件(RC)文件加入下面一行：
　　MySoundWAVEc:musicvanhalen.wav
　　然后将其编译为RES文件。最后使用下面的声明及代码：
　　
　　PrivateDeclareFunctionPlaySoundLib_"winmm.dll"Alias"PlaySoundA"(_
　　ByVallpszNameAsString,_
　　ByValhModuleAsLong,_
　　ByValdwFlagsAsLong)AsLong
　　PrivateConstSND_ASYNC&=&H1
　　PrivateConstSND_NODEFAULT&=&H2
　　PrivateConstSND_RESOURCE&=&H40004
　　DimhInstAsLong
　　DimsSoundNameAsString
　　DimlFlagsAsLong
　　DimlRetAsLong
　　PrivateSubCommand1_Click()
　　hInst=App.hInstance
　　sSoundName="MySound"
　　lFlags=SND_RESOURCE SND_ASYNC _SND_NODEFAULT
　　lRet=PlaySound(sSoundName,hInst,lFlags)
　　EndSub->