Статья: Запуск анимационных и видео-файлов

Image1.Left = 5000 – Image1.Width / 2 ‘ смещение влево

Image1.Visible = True ‘ показывает фотографию

If m = 9 Then ‘ условие

Image1.Visible = False ‘ скрывает фотографию

Image1.Height = 1000 ‘ устанавливает начальное значение высоты

Image1.Width = 1200 ‘ устанавливает начальное значение ширины

m = 0 ‘ обнуляет счетчик

End If ‘ конец условия

В окне для ввода программного кода для формы Form1 в общем разделе (general) запишите строку:

Dim m ‘ резервирование памяти для переменной

Эта строка необходима затем, чтобы зарезервировать область памяти для переменной m. Переменная m служит для организации счетчика m = m + 1. Переменная m наращивается на единицу через каждые две секунды. В зависимости от значения переменной m работают операторы в процедуре прерывания Timer1_Timer.

В процедуру прерывания Form_Load запишите строки, устанавливающие начальные высоту и ширину фотографии при загрузке приложения:

Image1.Height = 1000

Image1.Width = 1200

Если хотите, чтобы работа заставки сопровождалась мелодией, подберите подходящий для этого случая файл с расширением MID. Например, файл 43.mid. Добавьте в проект Вашего приложения файл Mci.vbx, так как Вы это сделали в самом начале данного урока для первого приложения. На форме Form1 разместите объект MMControl1. Превратите его в «невидимку», придав его свойству Visible (Видимость) значение False (Ложь). В процедуру прерывания Form_Load, которая срабатывает во время загрузки приложения, допишите строки, смысл которых Вы уже знаете:

MMControl1.FileName = “43.mid”

MMControl1.Command = "Open"

MMControl1.Command = "Play"

Для того чтобы файл мелодии воспроизводился «бесконечно», в процедуру прерывания MMControl1 _Done, которая срабатывает в момент окончания воспроизведения файла мелодии, запишите строки:

MMControl1.Command = “Prev”

MMControl1.Command = "Play"

Первая строка объекту MMControl1 подаст команду «перемотка назад», с командой второй строки Вы уже знакомы.

Создайте исполняемый EXE-файл, а затем переименуйте его, изменив расширение EXE на расширение SCR. Полученный файл с расширением SCR и библиотеку динамических связей Vbrun300.dll скопируйте в папку Windows. Для того чтобы заставка шла в сопровождении мелодии, ее файл с расширением MID и файл его поддержки Mci.vbx необходимо будет также скопировать в папку Windows.

Если Вы хотите в своих приложениях шире использовать возможности клавиатуры, то создайте простейшее приложение для определения кода клавиши. Для этого процедуру прерывания Form_KeyPress заполните программным кодом, состоящим всего из одной строки:

Print KeyAscii ‘ печать на экран кода нажатой клавиши

Запустите приложение. При нажатии, например, на клавишу «Enter» получите значение кода этой клавиши – 13, а при нажатии на клавишу «d» – 100. При одновременном нажатии на клавиши «Shift» и «d» получите 68.

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

1. Создайте приложение, в котором будут присутствовать пять видео-файлов, так чтобы при запуске этого приложения автоматически началась демонстрация первого файла и через две секунды после ее завершения запускался следующий файл. При завершении демонстрации последнего файла, приложение также автоматически останавливало свою работу.

2. Самостоятельно изучите объект Shape (Фигура) и его свойства. Подумайте, как применить этот объект в ранее созданных Вами приложениях.

3. Используйте свойство Stretch (Изменение размера) объекта Image (Образ) для приложения, в котором автомобиль с прицепом, доехав до края окна формы, останавливается и начинает деформироваться в горизонтальном направлении, а затем, восстановив прежние размеры, откатывается назад.