急救啊vb 播放声音文件，要求即时播放的，游戏编程需要！解决思路

急救啊!vb 播放声音文件，要求即时播放的，游戏编程需要！
vb 播放声音文件，要求即时播放的，游戏编程需要！

 

请记住，要求是 即时播放，也就是延时非常非常小，要基本达到 direct

 

如果使用第三方控件也可以，但是要把控件发我的邮箱来 flyingmouse@qq.com 

第三方控件要求注册的不要，会弹出广告的不要

少说了一点。我的音频文件格式是 wav或者mp3.其他格式也可以，但是不可以是mid的。也就说调用软波表的那种是立刻发生的但是不是我需要的

[解决办法]

VB code

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As LongPrivate Declare Function waveOutGetNumDevs Lib "winmm.dll" () As LongPrivate Const SND_ASYNC = &H1     ' 异步播放Private Const SND_NODEFAULT = &H2 ' 不使用缺省声音Private Const SND_MEMORY = &H4    ' lpszSoundName 指向一个内存文件Dim aaa() As BytePrivate Sub Command1_Click()    Ret& = waveOutGetNumDevs    If Ret& > 0 Then        aaa = LoadResData(101, "CUSTOM")        sndPlaySound aaa(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY    Else        MsgBox "No soundcard detected !"    End IfEnd Sub