Объект Sound

В статье содержится модуль класса cSound, предназначенный для воспроизведения звуков в приложе­нии Access. Модуль класса cSound содержит только одинметод (PIaySound), который передает звуковой файл на обработку вызову Windows API:

' Вызов Windows API.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _

"sndPlaySoundA" (ByVal IpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub PIaySound(SoundFile As String)

' Воспроизведение звукового файла.

SndPlaySound SoundFile, 1

End Sub

Следующий код инициализирует и обрабатывает объект objSound (рис. 11):

Dim objSound As cSound

Set objSound = New Sound

' При использовании Windows NT необходимо указывать путь "C:\WINMT".

objSound.PIaySound "C:\Windows\chimes.wav"

Set objSound = Nothing

РИСУНОК 11. Пример объекта Sound.