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.

Содержание раздела

---

---