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

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

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

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

Рекомендуем скачать другие рефераты по теме: решебник виленкин, реферат театр.





1  2  3 | Следующая страница реферата