Основные возможности Visual Basic. Макова Н.Е. - 54 стр.

              Упражнение 3.2. Управление и перемещение элементов
         управления
              Рассмотрим простой пример диалогового окна «Прогулка
         котенка», в котором при нажатии на кнопку «Беги!» котенок пе-
         ремещается по поверхности формы, а при нажатии на кнопку
         «Расти!», он начинает увеличиваться в размерах.




              При создании экранной формы объекту управления Image1
         необходимо присвоить следующие свойства:
         BorderStyle – 0
              Picture – вызвать построитель и указать путь к рисунку. Ри-
         сунок можно взять в галерее пакета Microsoft Office,
              Visible – True
              Приведенная ниже программа позволяет реализовать опи-
         санные выше действия. Самостоятельно разберитесь в этой про-
         грамме (используйте Приложение 3 в конце методички).
              Private Sub Command1_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 Command2_Click()
              Image1.Height = Image1.Height + 3
              Image1.Width = Image1.Width + 3
         End Sub
              Результат выполнения программы показан на рисунке.



         54

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com