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