Технология работы

Создайте новый файл.

Создайте экранную форму.

При создании экранной формы объекту управления Image 1 необходимо присвоить следующие свойства:

 

Свойство	Значение
BorderStyle	0 - fmBorderStyleNone
PictureAlignment (расположение рисунка в поле)	0- fmPictureAlignmentTopLeft
Picture (рисунок )	Вызвать построитель и указать путь к рисунку. Рисунок можно взять в галерее пакета Microsoft Office.
Visible (видимость)	True
PictureSizeMode (режим отображения рисунка)	3 - fmPictureSizeModeZoom

Приведенная ниже программа позволяет реализовать описанные выше действия.

Программа для кнопки «Беги!»

Private Sub CommandButton1_Click()

If Image1.Top > 0 And Image1.Left > 0 Then

Image1.Move Image1.Left - 5, Image1.Top - 6

Else

Image1.Visible = False

End If

End Sub

Программа для кнопки «Расти!»

Private Sub CommandButton2_Click()

Image1.Height = Image1.Height + 3

Image1.Width = Image1.Width + 3

End Sub

 

Создайте кнопку для запуска программы.

III. Выполните самостоятельно задания.