Пример управления размером
и перемещением элемента управления
Рассмотрим простой пример диалогового окна похождения колобка (рис. У6.3), в котором при нажатии на кнопку катись! Колобок перемещается по поверхности формы, а при нажатии на кнопку Расти \ он начинает увеличиваться в размерах. На рис. У6.4 показан вид Колобка после нескольких нажатий на кнопки катись! и Расти!. Приведенная ниже программа позволяет реализовать описанные выше действия Колобка.
Рис. У6.3. Диалоговое окно Похождения Колобка
Рис. У6.4. Вид Колобка после нескольких движений
Private Sub CommandButtonl_Click()
'
' Передвижение Колобка по поверхности формы
'
If Imagel.Top > 0 And Imagel.Left > 0 Then
Imagel.Move Imagel.Left - 5, Imagel.Top - 6
Else
Imagel.Visible = False
End If
End Sub
'
Private Sub CommandButton2_Click()
'
' Изменение размера Колобка
'
Imagel.Height = Imagel.Height + 3 Imagel. Width = Imagel.Width + 3
End Sub
Private Sub UserForm_Initialize()
'
' Инициализация диалогового окна Похождения Колобка
'
With Imagel
'
' Изображение колобка хранится в файле Dot.bmp
.Picture = LoadPicture("Dot.bmp")
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeZoom
.BorderStyle = fmBorderStyleNone
.Visible = True End With End Sub
