使用DirectSound播放WAV的方法

Imports DxVBLib

Public Class DirectSound
Dim dx As New DxVBLib.DirectX7
Dim ds As DxVBLib.DirectSound

Dim Buf As DxVBLib.DirectSoundBuffer '创建缓冲
Dim waveformatex As Object
Dim sdbuffer As DxVBLib.DSBUFFERDESC
Dim wvformat As DxVBLib.WAVEFORMATEX

Dim mHwnd As IntPtr

Public Sub New(ByVal hwnd As IntPtr)
mHwnd = hwnd
ds = dx.DirectSoundCreate("")
End Sub

Public Sub Play()
Call ds.SetCooperativeLevel(mHwnd, DxVBLib.CONST_DSSCLFLAGS.DSSCL_PRIORITY)

sdbuffer.lFlags = CONST_DSBCAPSFLAGS.DSBCAPS_STICKYFOCUS

Dim wave As String = "waveformatex"

wvformat.nSize = wave.Length
wvformat.nChannels = 1
wvformat.lSamplesPerSec = 1000 ' 44100
wvformat.nBitsPerSample = 16
wvformat.nBlockAlign = wvformat.nBitsPerSample / 8 * wvformat.nChannels
wvformat.lAvgBytesPerSec = wvformat.lSamplesPerSec * wvformat.nBlockAlign * 10

'音声をバッファに貯める
Buf = ds.CreateSoundBufferFromFile("c:/风之彩 钢琴曲.wav", sdbuffer, wvformat)
'ここに可変のwaitを入れたいのです。

'再生
Call Buf.Play(CONST_DSBPLAYFLAGS.DSBPLAY_LOOPING)
'再生終了するまで次の処理には行かない。
Do While Buf.GetStatus = CONST_DSBSTATUSFLAGS.DSBSTATUS_PLAYING
Application.DoEvents()
Loop
End Sub
End Class