Самоучитель VBA

       

Пример управления размером


и перемещением элемента управления

Рассмотрим простой пример диалогового окна похождения колобка (рис. У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



Содержание раздела