Універсальний прослуховуючих переглядач

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

А тепер Ви зможете побудувати програма, яка дозволить користувачеві:

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

Дана процедура переривання викличеться тоді, коли користувач в меню «Переглянути» вибере команду «Зображення». Порожні рядки в програмі абсолютно необов'язкові. У даному випадку вони використовуються для наочності і кращого удобочітаемості тексту програмного коду. Перший рядок вказує об'єкту спільного діалогу CMDialog1 дозволені формати для відкриваються файлів - BMP і WMF. Знак «*» вказує на те, що ім'я файлу може бути будь-яким. Другий рядок викликає стандартне вікно загального діалогу «Відкриття файлу», за допомогою якого користувач відшукує на потрібному диску і в потрібній папці необхідний файл. Третій рядок не завантажує файл малюнка, вибраний користувачем, і поміщає його в об'єкт Image1 (Образ), розташований на формі Form1. Це можливо за допомогою оператора LoadPicture (Завантаження малюнка).

Наступні два рядки приводять у відповідність розміри вікна програми та розміри поміщається в це вікно малюнка.

Шоста рядок програмного коду за допомогою оператора FileLen (Довжина файлу) встановлює розмір вибраний файл і поміщає цю інформацію в рядок заголовка форми Form1. Сьома рядок додає в рядок заголовка інформацію про шляхи та імені цього файлу. Як працюють останні два рядки, Ви вже знаєте.

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

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

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. У меню помістіть команду «Друк» за допомогою, якої користувач зміг би роздруковувати Популярні малюнки на папір.

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/