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

Переключение изображений

Самый простой способ анимации — переключение изображений. Рассмотрим это на примере. Создайте небольшое приложение, выполнив следующие действия:

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

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

3. Присвойте форме проекта имя FormForGraphics. В свойство caption формы введите заголовок Форма для работы с графикой.

4. Добавьте в форму кнопку управления типа commandBution, дважды щелкнув мышью кнопку CommandButton на панели элементов управления. Назовите эту кнопку cbcontrol и присвойте свойству Caption значение Изменить состояние. Созданная в форме кнопка cbcontrol будет служить для переключения изображений, выполняемых приложением MyGraphics по событию click этой кнопки.

5. Добавьте в форму три элемента управления типа picture и назовите их picRed, picYellow и picGreen. Вставьте В СВОЙСТВО Picture каждого объекта соответствующие цветам изображения светофора из каталога \Common\Graphics\Icons\Trafric. Свойство visible для всех трех элементов управления установите в состояние False.

6. Добавьте в форму объект типа image, в котором будет переключаться изображение, и назовите его imgStatus, при этом свойство picture этого объекта оставьте пустым. Свойство visible для данного элемента управления установите в состояние True.

После выполнения приведенных выше шагов форма приложения будет иметь вид, показанный на рис. 11.7.

Рис. 11.7. Вид приложения для переключения изображений

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

Dim figEnd As Integer
Private Sub Form_Load()
figEnd = 0
imgStatus.Picture = PicRed.Picture
FormForGraphics.Caption = "Форма для работы с графикой"
End Sub
Private Sub cbControl_Click()
If imgStatus.Picture = PicRed.Picture Then
imgStatus.Picture = PicYellow.Picture
Else
If imgStatus.Picture = PicYellow.Picture Then
imgStatus.Picture = PicGreen.Picture
Else
If imgStatus.Picture = PicGreen.Picture Then
figEnd = 1
End If
If imgStatus.Picture = PicGreen.Picture And figEnd = 1 Then
imgStatus.Picture = PicRed.Picture
figEnd = 0
End If
End If
End If
End Sub

8. Запустите приложение на выполнение. Нажатием кнопки Изменить состояние осуществляется последовательное переключение состояния светофора с помощью присвоения свойству picture объекта imgStatus нового значения.

В этом приложении показана возможность переключения изображений из набора отдельных объектов, в которых эти изображения содержатся. Однако для хранения необходимых изображений предпочтительнее использовать массивы элементов управления или объекта imageList.

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