Объект Общий Диалог
Объект Common Dialog (Общий Диалог) позволяет использовать дополнительные возможности, которые предоставляет система Windows – Стандартные панели диалога. Эти панели выполняют следующие функции:
Открытие файла;
Сохранение файла;
Выбор шрифта;
Управление печатью;
Выбор цвета;
Получение справочной информации.
Для добавления его в панель элементов надо выполнить последовательность действий:
Project в горизонтальном меню VB;
Components (вызывается диалоговое окно);
Controls (элементы управления);
Microsoft Common Dialog 6.0 (найти в списке и отметить флажком).
После выполнения
этих действий Инструмент Common
Dialog
появится в наборе ToolBox.
Надо разместить объект на форме в произвольном месте, так как при работе программы он невидим.
В зависимости от используемого метода и свойств на экран будет выводиться одно из следующих диалоговых окон.
Диалоговое окно |
Вызываемый метод |
Оpen (Открыть) Save As(Сохранить как) |
ShowOpen |
Color (Цвет) |
ShowColor |
Font (Шрифт) |
ShowFont |
Print (Печать) |
ShowPrinter |
Для того, чтобы установить значения основных свойств объекта, надо установить его на форму и в контекстном меню выбрать команду Properties. В появившемся окне установить нужные режимы. На рисунке показана установка для отображения текстовых файлов.
Диалог Open/Save As
Для выбора имени файла при открытии и сохранении его надо воспользоваться методом ShowOpen и свойством Filename объекта Общий диалог.
CommonDialog1.ShowOpen - при выполнении этого метода в работающем приложении открывается стандартная панель Windows для выбора файла.
При выборе файла изменяется свойство FileName, используем это в программе.
Fname = CommonDialog1.Filename - переменной присваивается имя выбранного файла с указанием полного пути.
Далее применяем эту переменную для работы.
Например:
Open Fname For Input As # 1
или
Image.Picture = LoadPicture ( Fname )
Задание1. Сделать горизонтальное меню, в пункте файл – подпункты: 'Открыть текстовый файл' и 'Открыть рисунок'. Запрограммировать эти пункты с помощью объекта Общий Диалог. Текстовый файл читать в Текстовое Окно, рисунок в объект Изображение.
Мультимедийные приложения
Мультимедийные приложения – приложения, позволяющие работать с аудио- и видеоинформацией, представленной на носителях различных устройств.
Создание процедур воспроизведения с аудио- и видеофайлов основано на использовании элемента управления Control. Его нет в стандартной панели TooBox. Для добавления его надо выполнить последовательность действий:
Project в горизонтальном меню VB;
Components (вызывается диалоговое окно);
Controls (элементы управления);
Microsoft Multimedia MCI Dialog 6.0 (найти в списке и отметить флажком).
После выполнения
этих действий Инструмент Common
Dialog
появится в наборе ToolBox.
Можно сокращенно
назвать MMC.
Надо разместить объект на форме. При работе программы он может быть видимым или невидимым. Отдельные кнопки по желанию программиста могут быть доступными и недоступными. Это можно установить в контекстном меню объекта.
Объект ММС работает аналогично настоящему проигрывателю: все кнопки имеют такое же значение.
Для использования возможностей мультимедийного устройства необходимо связать его с элементом управления MMC. Для этого имеется свойство DeviceType, позволяющее открыть необходимое мультимедийное устройство.
Значение свойства DeviceType, |
Мультимедийное устройство |
Тип файлов (расширение) |
AVIVideo |
Видеофайл |
avi |
WaveAudio |
Звуковая плата |
wav |
CDAudio |
Лазерный проигрыватель |
|
MMMovie |
MultimediaMovie - плейер |
видеоклипы |
DAT |
Цифровой аудиомагнитофон |
|
VCR |
Видеомагнитофон |
|
Other |
Другие источники |
|
Свойство FileName определяет полный путь и имя воспроизводимого файла.
Свойство Command позволяет назначить исполняемую команду для мультимедийного устройства.
Присваивание свойству Command различных значений аналогично нажатию соответствующих кнопок на проигрывателе.
Значение свойства Command |
Исполняемая команда |
Open |
Открывает (включает) устройство |
Close |
Закрывает (выключает) устройство |
Play |
Воспроизведение |
Pause |
Пауза |
Stop |
Останавливает воспроизведение |
Back |
Перемотка записи назад |
Step |
Перемотка записи вперед |
Пример работы с аудиофайлом:
MMC. DeviceType = “WaveAudio”
MMC. FileName = “C:\Media\zwuk.wav”
MMC. Command = “Open”
MMC. Command = “Play”
Задание 2. На форме по одной кнопке запускается воспроизведение аудиофайла, по другой останавливается.
Работа с видеофайлом происходит аналогично, только свойству DeviceType надо дать значение AVIVideo.
Задание 3. На форме по одной кнопке запускается воспроизведение видеофайла, по другой останавливается, а по третьей перематывается назад и снова запускается.
Видеоклип, открываемый с помощью элемента MMC, автоматически воспроизводится в собственном окне.
Возможно воспроизведение видеофайлов производить в пользовательском окне в поле формы. Для этого надо добавить объект Picture и связать его с мультимедийным устройством при помощи свойства hWndDisplay.
Пример работы с видеофайлом:
MMC. DeviceType = “AVIVideo”
MMC. FileName = “C:\Media\klip.avi”
MMC. hWndDisplay = Picture1. hWnd - ‘привязка к объекту Picture
MMC. Command = “Open”
MMC. Command = “Play”
Задание 4. Изменить задание 3, воспроизведение видеофайла должно происходить в окне на форме.
Домашнее задание:
В собственный проект добавить воспроизведение видеофайлов и озвучить программу.