|
Воспроизведение звуков
1. Использование компоненты Windows Media Player
Sub tstSOUND()
Dim media 'As WindowsMediaPlayer требуется ссылка на WMP.dll
Const SoundFILE = "c:\Бетховен - Пятая симфония.RMI"
Set media = CreateObject("MediaPlayer.MediaPlayer")
'media.Stop при необходимости
media.AutoStart = True
media.Open (SoundFILE)
End Sub
Позволяет воспроизводить звуки всех форматов доступных для воспроизведения проигрывателем
Windows Media Player, в свойствах доступны характеристики открытого медиа-файла (качество, продолжительность)
2. Воспроизведение с помощью винапи вызова библиотеки winmm.dll
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Call PlaySound("c:\test.mid", ByVal 0&, SND_FILENAME Or SND_ASYNC)
| |