vb directsound

没测试过，大概看的到思路。

Option Explicit

Dim objDX As New DirectX7
Dim objDS As DirectSound
Dim objDSB As DirectSoundBuffer
Dim blnLoaded As Boolean

Private Sub Form_Load()
On Local Error Resume Next
Set objDS = objDX.DirectSoundCreate("")
If Err.Number <> 0 Then
MsgBox "创建DirectSound失败！"
End
End If
objDS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL

LoadWaveFile
End Sub

Sub LoadWaveFile()
Dim bufferDesc As DSBUFFERDESC
Dim waveFormat As WAVEFORMATEX
Dim sndFile As String
sndFile = "c:\windows\media\logoff.wav"

bufferDesc.lFlags = DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC

waveFormat.nFormatTag = WAVE_FORMAT_PCM
waveFormat.nChannels = 2 'stereo
waveFormat.lSamplesPerSec = 2