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 SubEnd Class