Шаг 195.
VBA в MSExcel. Практические приемы программирования на VBA. Пример управления размером и перемещением элемента управления

    На этом шаге мы рассмотрим решение задач перемещения и изменения размера графического изображения.

    Рассмотрим простой пример диалогового окна Похождения Колобка (рисунок 1), в котором при нажатии на кнопку Катись! Колобок перемещается по поверхности формы, а при нажатии на кнопку Расти! он начинает увеличиваться в размерах.


Рис.1. Диалоговое окно Похождения Колобка

    На рисунке 2 показан вид Колобка после нескольких нажатий на кнопки Катись! и Расти!.


Рис.2. Вид Колобка после нескольких движений

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

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
Private Sub UserForm_Initialize()
  ' Инициализация диалогового окна Похождения  Колобка
  With Image1
     ' Изображение колобка хранится в файле Dot.bmp
    .Picture = LoadPicture("Dot_a.bmp")
    .PictureAlignment = fmPictureAlignmentTopLeft
    .PictureSizeMode = fmPictureSizeModeZoom
    .BorderStyle = fmBorderStyleNone
    .Visible = True
  End With
End Sub
Текст этого примера вместе с рисунком можно взять здесь.

    На следующем шаге мы рассмотрим перемещение элемента управления при помощи операции drag-and-drop.




Предыдущий шаг Содержание Следующий шаг