Статья: Универсальный прослушивающий просмотрщик

CMDialog1.Filename = "*.avi" ‘ указание типа открываемых файлов

CMDialog1.Action = 1 ‘ активизация окна диалога ОТКРЫТИЕ ФАЙЛА

MMControl1.Filename = CMDialog1.Filename ‘ передача имени файла

MMControl1.Command = "Close"

MMControl1.Command = "Open"

MMControl1.Command = "Play"

MMControl1.Visible = True

Form1.Caption = FileLen(CMDialog1.Filename) & " байт "

Form1.Caption = Form1.Caption + CMDialog1.Filename

Form1.Width = 5805

Form1.Height = 3780

Третья строка имя файла, выбранное пользователем в общем окне диалога «Открытие файла», передает объекту MMControl1. Смысл остальных строк Вам уже должен быть понятен. Данная процедура прерывания Video_Click сработает при выборе пользователем в меню «Посмотреть» команду «Видео».

Завершите обработку выборов меню. Для двух оставшихся процедур прерывания Mid_Click и Wav_Click потребуется такой же программный код, как и для процедуры Video_Click. Изменения коснутся только первой строки. Для процедуры Mid_Click строка примет вид:

CMDialog1.Filename = "*.mid" ‘ указание типа открываемых файлов

А для процедуры Wav_Click:

CMDialog1.Filename = "*.wav" ‘ указание типа открываемых файлов

Свойству Caption (Надпись) объекта Form1 придайте значение «Универсальный прослушивающий просмотрщик». Создайте исполняемый EXE-файл. Для успешной работы приложения в его папку наряду с исполняемым файлом должны присутствовать файлы Vbrun300.dll, CMDialog.vbx и Mci.vbx. Опробуйте приложение в работе.

Домашнее задание

1. В систему меню поместите команду «Выход».

2. Добавьте в приложение второе окно, содержащее помощь по работе с приложением. Сделайте так, чтобы это окно появлялось при выборе в меню команды «Помощь».

3. Добавьте в приложение третье окно, содержащее сведения о Вашем авторстве на программу. Это окно пользователь должен вызывать из меню командой «О программе».

4. Сделайте так, чтобы сразу после загрузки приложения начинала звучать выбранная на Ваше усмотрение мелодия и в окне Form1 появлялся какой-либо рисунок или фотография.

5. В меню поместите команду «Печать» с помощью, которой пользователь смог бы распечатывать просматриваемые рисунки на бумагу.