2015-02-27
341
Создайте новый файл.
Создайте экранную форму.
При создании экранной формы объекту управления 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. Выполните самостоятельно задания.
