在声卡中发出声音？

Question

你是说MIDI??
Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Dim hMidiOut As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim T As Long
    midiOutOpen hMidiOut, 0, 0, 0, 0
    midiOutShortMsg hMidiOut, 6567325
    T = Timer
    Do:  DoEvents: Loop Until Timer > T + 4
    midiOutClose hMidiOut
End Sub
或者你是说,把声音文件放到资源文件里
独到一个数组里面,用sndplaysound函数播放?
好象是这样
sndPlaySound abytSound(0), SND_ASYNC Or SND_NODEFAULT

Answer 1

如果一定要用sndplaysound，那么Flag设为SND_MEMORY,把声明中ByVal lpszSoundName As String 改为ByVal lpszSoundName As long 
把lpszSoundName设为内存中声音的地址，但不保证成功。