Порядок выполнения. 41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))

41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))

42. Создайте 4 рисунка(см. образец) и сохраните их в файлы Колобок1, Колобок2, Колобок3, Колобок4

43. Загрузите Visual Basic Установите на форме следующие объекты и измените им свойства

44. Выделите все изображения колобка (при нажатой клавише Shift) и измените следующие значения для свойств:

- Left 1000, Top 1000

45. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

If Image1.Visible = True Then

Image1.Visible = False

Image3.Visible = True

Exit Sub

End If

If Image2.Visible = True Then

Image2.Visible = False

Image4.Visible = True

Exit Sub

End If

If Image3.Visible = True Then

Image3.Visible = False

Image1.Visible = True

Exit Sub

End If

If Image4.Visible = True Then

Image4.Visible = False

Image2.Visible = True

Exit Sub

End If

46. В окне кода процедуры обработки события KeyDown для объекта Form набрать

If KeyCode = 39 Then 'вправо

If Image1.Visible = False And Image3.Visible = False Then

Image1.Visible = True

Image2.Visible = False

Image4.Visible = False

End If

Image1.Left = Image1.Left + 100

Image2.Left = Image2.Left + 100

Image3.Left = Image3.Left + 100

Image4.Left = Image4.Left + 100

End If

If KeyCode = 37 Then 'влево

If Image2.Visible = False And Image4.Visible = False Then

Image2.Visible = True

Image1.Visible = False

Image3.Visible = False

End If

Image1.Left = Image1.Left – 100

Image2.Left = Image2.Left - 100

Image3.Left = Image3.Left – 100

Image4.Left = Image4.Left - 100

End If

If KeyCode = 40 Then 'вниз

Image1.Top = Image1.Top + 100

Image2.Top = Image2.Top + 100

Image3.Top = Image3.Top + 100

Image4.Top = Image4.Top + 100

End If

If KeyCode = 38 Then 'вверх

Image1.Top = Image1.Top – 100

Image2.Top = Image2.Top - 100

Image3.Top = Image3.Top – 100

Image4.Top = Image4.Top - 100

End If

47. Проверьте работу программы