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

Владимир Коробицын

А сейчас Вы можете выстроить приложение, которое позволит юзеру:

1. Просматривать файлы рисунков в форматах BMP, WMF.

2. Просматривать видео-файлы в формате AVI.

3. Прослушивать музыкальные файлы в форматах MID, RMI.

4. Прослушивать звуковые файлы в формате WAV.

Сделайте папку Browser, в которую позже расположите проект этого приложения. В проект добавите файл Универсальный прослушивающий просмотрщик - статья Mci.vbx (поддержка мультимедийных объектов) и файл Cmdialog.vbx (поддержка окна общих диалогов). На форме Form1 расположите объекты Image1 (Образ), MMControl1 (Мультимедийные объекты) и CMDialog1 (Окно общих диалогов). Объект MMControl1 сделайте «невидимым». В данном приложении объект CMDialog1 Вы будете использовать для активизации окна «Открытие файла».

Поначалу постройте в Универсальный прослушивающий просмотрщик - статья приложении систему меню по последующей схеме:

Caption (Надпись) Name (Имя в программке)

Поглядеть Look

----Картинки Pictures

----Видео Video

Слушать Listen

----Мелодии Mid

----Звуки Wav

Вы помните, что надписи в меню и надлежащие им имена процедур прерывания в программке могут быть случайными. Во вновь сделанную функцию прерывания Pictures_Click расположите программный код:

CMDialog1.Filename = "*.bmp;*.wmf Универсальный прослушивающий просмотрщик - статья" ‘ указание типов файлов

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

Image1 = LoadPicture(CMDialog1.Filename) ‘ загрузка рисунка в Image1

Form1.Width = Image1.Width + 120 ‘ установление ширины формы

Form1.Height = Image1.Height + 720 ‘ установление высоты формы

‘ информация о длине файла

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

‘ добавление пути и названии файла

Form1.Caption = Form1.Caption + CMDialog1.Filename

MMControl1.Visible = False

Данная процедура прерывания Универсальный прослушивающий просмотрщик - статья вызовется тогда, когда юзер в меню «Посмотреть» изберет команду «Картинки». Пустые строчки в программке совсем необязательны. В этом случае они употребляются для наглядности и наилучшей удобочитаемости текста программного кода. 1-ая строчка показывает объекту общего диалога CMDialog1 разрешенные форматы для открываемых файлов – BMP и WMF. Символ «*» показывает на Универсальный прослушивающий просмотрщик - статья то, что название файла может быть хоть каким. 2-ая строчка вызывает стандартное окно общего диалога «Открытие файла», средством которого юзер ищет на подходящем диске и в подходящей папке нужный файл. 3-я строчка загружает файл рисунка, избранный юзером, и помещает его в объект Image1 (Образ), расположенный на форме Form1. Это может Универсальный прослушивающий просмотрщик - статья быть при помощи оператора LoadPicture (Загрузка рисунка).

Последующие две строчки приводят в соответствие размеры окна приложения и размеры помещаемого в это окно рисунка.

Шестая строчка программного кода средством оператора FileLen (Длина файла) устанавливает размер избранного файла и помещает эту информацию в строчку заголовка формы Form1. Седьмая строчка добавляет в строчку Универсальный прослушивающий просмотрщик - статья заголовка информацию о пути и имени этого файла. Как работают последние две строчки, Вы уже понимаете.

Лучше в стандартную функцию прерывания Image1_Click стопроцентно скопировать вышеприведенный программный код. Тогда юзеру при следующих воззваниях к окну общего диалога «Открытие файла» будет необязательно прибегать к услугам меню. Довольно будет щелкнуть мышью Универсальный прослушивающий просмотрщик - статья по полю уже вызванного рисунка, как вновь появится окно общего диалога «Открытие файла».

Продолжим работу по обработке выборов меню. Функцию прерывания Video_Click заполните программным кодом:

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

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

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

MMControl1.Command = "Close"

MMControl Универсальный прослушивающий просмотрщик - статья1.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

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

Окончите обработку выборов меню. Для 2-ух оставшихся процедур прерывания Mid_Click и Wav_Click будет нужно таковой же программный код, как и для процедуры Video_Click. Конфигурации коснутся только первой строчки. Для процедуры Mid_Click строчка воспримет вид:

CMDialog Универсальный прослушивающий просмотрщик - статья1.Filename = "*.mid" ‘ указание типа открываемых файлов

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

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

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

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

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

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

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

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

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


upominaniya-ministra-sporta-rossii-vl-mutko-27-09-2012-glavnie-novosti-sporta-5.html
upominaniya-ministra-sporta-rossii-vl-mutko-itogi-nedeli-s-1-po-7-oktyabrya-kaliningradskaya-oblast-33-upominaniya.html
upominaniya-ministra-sporta-rossii-vl-mutko-struktura-programmi-razvitiya-parusnogo-sporta-na-2012-2020-godi-25.html