Разделы
Главная

Windows API
Реестр
MS Access
Visual Basic
Download
Форум
Гостевая книга
Ссылки

E-mail

Партнерская программа WWW.PORTA.RU (on-line магазин портативной аудио, видео, фототехники). Самая щедрая, самая честная, самая популярная. Приглашаем всех веб-мастеров к участию!



Submitter.ru - Free promoting
Visual Basic

вернуться назад Как воспроизвести WAV-файл?
Текст модуля:

' воспроизведение WAV-файла
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

' значения флагов для uFlags параметра
' проиграть синхронно (по умолчанию)
Const SND_SYNC = &H0
' проиграть асинхронно
Const SND_ASYNC = &H1
' если файл не найден, не будет тишины, как по умолчанию
Const SND_NODEFAULT = &H2
' lpszSoundName указывает на файл в памяти
Const SND_MEMORY = &H4
' имя является записью в WIN.INI [звуки]
Const SND_ALIAS = &H10000
' имя является имененм файла
Const SND_FILENAME = &H20000
' имя ссылается имя в файле ресурсов
Const SND_RESOURCE = &H40004
' имя является названием идентификатора звука
' в файле WIN.INI [звуки]

Const SND_ALIAS_ID = &H110000
' должно быть > 4096, чтобы позволить находиться
' строковым записям в той же секции файла ресурсов

Const SND_ALIAS_START = 0
' зациклить проигрывание файла до следующего вызова sndPlaySound
Const SND_LOOP = &H8
' не прекращать проигрывание активных звуков
Const SND_NOSTOP = &H10
' значимые флаги / ;Internal /
Const SND_VALID = &H1F
' не ждать, если драйвер занят
Const SND_NOWAIT = &H2000
' Множество значимых флагов. Всё, что выходит за
' за рамки этого диапазона будет вызывать ошибку.

Const SND_VALIDFLAGS = &H17201F
' Частично эти флаги зарезервированы
Const SND_RESERVED = &HFF000000
Const SND_TYPE_MASK = &H170007


Текст формы:

' воспроизведение WAV-файла
' для работы необходимо добавить
' три кнопки (CommandButton) с именеами:
' Command1, Command2 и Command3


Public Sub PlaySound(FileName As String)
Dim x%
x% = sndPlaySound(FileName, SND_NOSTOP)
End Sub


Private Sub Command1_Click()
' определим путь к текущей директории
Dim Path
Path = App.Path
' воспроизведем WAV-файл
Call PlaySound(Path & "\" & "Dsposit1.wav")
End Sub


Private Sub Command2_Click()
' определим путь к текущей директории
Dim Path
Path = App.Path
' воспроизведем WAV-файл
Call PlaySound(Path & "\" & "destroy.wav")
End Sub


Private Sub Command3_Click()
' определим путь к текущей директории
Dim Path
Path = App.Path
' воспроизведем WAV-файл
Call PlaySound(Path & "\" & "v-banyu.wav")
End Sub


Private Sub Form_Load()
Me.Caption = "Воспроизведение WAV-файлов"
Command1.Caption = "Приветствие"
Command2.Caption = "взрыв"
Command3.Caption = "Прощание (шутка) из кино"
End Sub


Воспроизведение AVI-файла (29 566 байт)