Изменение размера события

Статья
04/07/2023

Возникает при изменении размера формы.

Синтаксис

Частный вложенный UserForm_Resize( )

Замечания

Используйте процедуруизменения размера для перемещения или изменения размера элементов управления при изменении размера родительской формы UserForm. Эту процедуру события также можно использовать для повторного вычисления переменных или свойств.

Пример

В следующем примере события Activate и Click иллюстрируют активацию события UserFormResize . Когда пользователь щелкает клиентную область формы, она увеличивается или сжимается, а новая высота указывается в строке заголовка. Обратите внимание, что свойство Tag используется для хранения начальной высоты UserForm.

' Activate event for UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Click me to make me taller!"
    Tag = Height    ' Save the initial height.
End Sub

' Click event for UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' If the form is small, make it tall.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' If the form is tall, make it small.
        Height = Val(Tag)
    End If
End Sub

' Resize event for UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "New Height: " & Height & "  " & "Click to resize me!"
End Sub

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через