为什么用sndPlaySound播放不了资源文件里的声音?

Question

资源原文件test1.rc:
STRINGTABLE
BEGIN
   101,"你是谁？"
   102,"你从哪里来？"
   103,"你要到哪里去？"
END
jpgpicture1 BITmap baby.BMP
wave1 WAVE recycle.wav程序:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_SYNC = &H0Private Sub Command1_Click()
MsgBox LoadResString(101)
End SubPrivate Sub Command2_Click()
Set Picture1.Picture = LoadResPicture("jpgpicture1", vbResBitmap)
End SubPrivate Sub Command3_Click()'sndPlaySound "recycle.wav", SND_ASYNCDim bArr() As Byte
bArr = LoadResData("wave1", "WAVE")
sndPlaySound bArr(0), SND_ASYNC Or SND_MEMORYEnd Sub问题:
按Command3后播放声音没有任何反应.
而用sndPlaySound "recycle.wav", SND_ASYNC播放没有编译的原声音文件却正常.
不知是什么问题?

Answer 1

把声明改成 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As Long, ByVal uFlags As Long) As Long调用时用 sndPlaySound VarPtr(bArr(0)), SND_ASYNC Or SND_MEMORY试试看