- Код: Выделить всё
Dim m_dx As New DirectX7
Dim m_ds As DirectSound
Set m_ds = m_dx.DirectSoundCreate("")
Dim m_dsBuffer(5) As DirectSoundBuffer
m_ds.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
Dim bufferDesc As DSBUFFERDESC
bufferDesc.lFlags = DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC
Dim waveFormat As WAVEFORMATEX
waveFormat.nFormatTag = WAVE_FORMAT_PCM
waveFormat.nChannels = 2
waveFormat.lSamplesPerSec = 22050
waveFormat.nBitsPerSample = 16
waveFormat.nBlockAlign = waveFormat.nBitsPerSample / 8 * waveFormat.nChannels
waveFormat.lAvgBytesPerSec = waveFormat.lSamplesPerSec * waveFormat.nBlockAlign
Set m_dsBuffer(1) = m_ds.CreateSoundBufferFromFile("c:\8.wav", bufferDesc, waveFormat)
m_dsBuffer(1).Play DSBPLAY_LOOPING
Извиняюсь, что без коментариев, просто при копировании заместо русских букв получились иероглифы - пришлось вырезать
