ПОИСК
Категории книг
ОПРОС
Вопрос: Какой язык программирования вы предпочитаете
С/C++
Delphi
Visual Basic
Perl
Java
PHP
ASP
Другой
ЭТО ПОЛЕЗНО!
ОБРАТНАЯ СВЯЗЬ

/ Главная / Программирование / Иллюстрированный самоучитель по Visual Basic 6.0
Иллюстрированный самоучитель по Visual Basic 6.0

Ch 11.htm

назад | содержание | вперед

Элемент управления Animation

Элемент управления Animation позволяет использовать при анимации видеофайлы — специально подготовленные файлы с расширением avi, представляющие собой последовательный набор кадров (растровых изображений).

Для использования элемента управления Animation необходимо подключить к проекту библиотеку Microsoft Windows Common Control-2 6.0. После подключения этой библиотеки кпроекту на панели элементов управления появляется кнопка Animation. Вид элемента управления Animation, размещенного в форме, показан на рис. 11.12.

Рис. 11.12. Вид элемента управления Animation при проектировании приложения

Замечание

Следует еще раз обратить внимание на то, что для применения элемента управления Animation требуется видеофайл. В своем примере мы воспользуемся видеофайлом из каталога \Common\Graphics\Videos.

Основные методы элемента управления Animation, которые позволяют организовать просмотр видеофайлов, следующие:

Метод

Назначение

Open

Открывает видеофайл

Play

Запускает видеофайл на выполнение

Stop

Останавливает видеофайл

Close

Закрывает видеофайл


 

Метод play может иметь дополнительные аргументы:

  • Repeat — задает количество повторов просмотра видеофайла
  • Start — задает начальный кадр
  • Stop — задает последний кадр

Для изучения элемента управления Animation создадим приложение MyVideoAnimation. Выполните следующие действия:

1. Создайте новый стандартный проект. Выберите команду New Project (Создать новый проект) меню File (Файл) и в окне выбора типа проекта дважды щелкните мышью на значке Standard EXE.

2. Присвойте проекту имя MyVideoAnimation. Для этого откроите окно свойств проекта, выбрав команду Project1 Properties (Свойства Project 1) меню Project (Проект). После переименования проекта эта команда будет именоваться MyVideoAnimation Properties.

3. Присвойте форме проекта имя FormVideoAnimation. В свойство Caption формы введите заголовок Просмотр видеофайлов.

4. Подключите к проекту две библиотеки: Microsoft Common Dialog Control 6.0 и Microsoft Windows Common Control-2 6.0. Для этого в меню Project (Проект) выберите команду Components (Компоненты) и в открывшемся диалоговом окне установите соответствующие именам библиотек флажки.

Замечание

Библиотеку Microsoft Common Dialog Control 6.0 подключаем для создания в форме диалогового окна поиска видеофайлов на диске.

5. Добавьте в форму кнопку управления типа CommandButton, дважды щелкнув мышью кнопку CommandButton на панели элементов управления. Назовите эту кнопку cbRun и присвойте свойству caption значение Просмотр видеофайла. Созданная в форме кнопка cbRun предназначена для запуска видеофайла на просмотр по событию click этой кнопки.

6. Добавьте в форму FormForGraphics еще одну такую же кнопку и назовите ее cbStop. Присвойте свойству Caption значение Стоп. Эта кнопка будет служить для останова просмотра видеофайла.

7. Добавьте в форму элемент управления Animation, дважды щелкнув мышью кнопку Animation на панели элементов управления. Назовите его

anivideo.

8. Добавьте в форму элемент управления CommonDialog, дважды щелкнув мышью кнопку Common Dialog на панели элементов управления. Назовите созданный объект cdvideo. Вид созданного проекта показан на рис. 11.13.

9. Откройте окно редактора и введите следующий код:

Private Sub cbRun_Click()

cdvideo.Filter = "avi files (*.avi)¦*.avi"

cdVideo.ShowOpen

anivideo.Open cdVideo.FileName

anivideo.Play

End Sub

Private Sub cbStop_Click()

anivideo.Stop

End Sub

Private Sub Form Unload(Cancel As Integer)

anivideo.Close

End Sub

10. Запустите приложение на выполнение. При нажатии кнопки Просмотр видеофайла открывается диалоговое окно Открытие файла, позволяющее найти видеофайл. Найдите требуемый файл и нажмите кнопку Открыть. Видеофайл запускается на просмотр (рис. 11.14). Остановить просмотр можно нажатием кнопки Стоп.

Замечание

Для диалогового окна Открытие файла установлено свойство Filter, чтобы осуществить фильтрацию файлов с расширением avi.

Если метод play в этом примере использовать в следующем виде:

aniVideo.Play 3, 5, 10 то три раза будут прокручены кадры с 5 по 10.

Рис. 11.13. Вид приложения для просмотра видеофайлов

Рис. 11.14. Просмотр видеофайла в форме

назад | содержание | вперед


Компьютерные книги © 2006-2013
computers.plib.ru