назад | содержание | вперед
Проигрыватель аудиофайлов WAV
Для изучения работы элемента управления MMControi создадим приложение для проигрывателя звуковых файлов в формате WAV. Чтобы создать такой проигрыватель, выполните следующие действия:
1. Создайте новый стандартный проект. Для этого в меню File (Файл) выберите команду New Project (Создать новый проект) и в окне выбора типа проекта дважды щелкните мышью на значке Standard EXE.
2. Присвойте проекту имя MyMultiMedia. Для этого откройте окно свойств проекта, выбрав команду Projecti Properties (Свойства Project 1) меню Project (Проект). После переименования проекта эта команда именуется MyMultiMedia Properties.
3. Присвойте форме проекта имя Formplayer. В свойство caption формы введите заголовок Мультимедиа плейер.
4. Присоедините к проекту библиотеку компонентов Microsoft Multimedia Control 6.0, воспользовавшись диалоговым окном Components (Компоненты), которое открывается в меню Project (Проект) командой Components.
5. Нам потребуется диалоговое окно поиска проигрываемых файлов, поэтому установите также в окне Components флажок для библиотеки компонентов Microsoft Common Dialog Control 6.0.
6. Добавьте в форму Formplayer элемент управления MMControl, дважды щелкнув мышью кнопку MMControl на панели элементов управления, и присвойте ему имя MMControlCDPlayer.
7. Добавьте в форму элемент управления commonDialog, дважды щелкнув мышью кнопку CommonDialog на панели элементов управления, и присвойте ему имя cdplayer.
8. Добавьте в форму Formplayer кнопку управления типа ConroandButton, дважды щелкнув мышью кнопку CommandButton на панели элементов управления. Назовите эту кнопку cbFindFile и введите в свойство caption значение Найти файл. По событию click созданной в форме кнопки cbFindFile будет открываться диалоговое окно для поиска воспроизводимых файлов.
Созданный проект представлен на рис. 12.3.
Рис. 12.3. Вид проигрывателя файлов WAV при проектировании
9. Откройте окно редактора и введите следующий код:
Private Sub Form_Load()
MMControlCDPlayer.Notify = False
MMControlCDPlayer.Wait = True
MMControlCDPlayer.Shareable = False
MMControlCDPlayer.DeviceType = "WaveAudio"
End Sub
Private Sub cbFindFile_Click ()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName = cdPlayer.FileName
MMControlCDPlayer.Command = "Open"
End Sub
Private Sub Form Unload(Cancel As Integer)
MMControlCDPlayer.Command = "Close"
End Sub
Этот код при загрузке формы назначает элементу управления MMControlCDPlayer свойства, необходимые для работы с файлами формата WAV.
10. Запустите приложение. При нажатии кнопки Найти файл открывается диалоговое окно Открытие файла, позволяющее осуществить поиск, а затем открыть файл для воспроизведения. Далее можно работать с выбранным файлом при помощи кнопок элемента управления
MMControlCDPlayer.
На рис. 12.4 показан проигрыватель в режиме выполнения.
Рис. 12.4. Вид проигрывателя файлов WAV в режиме выполнения
Замечание
Полностью проверить работу приложения (услышать звук) можно только при наличии устройства воспроизведения звука, например, звуковой карты и колонок.
назад | содержание | вперед