Evento de redimensionamento

Ocorre quando um formulário do usuário é redimensionado.

Sintaxe

Sub Privado UserForm_Resize( )

Comentários

Use um procedimento de evento Resize para mover ou redimensionar controles quando o UserForm pai for redimensionado. Você também pode usar esse procedimento de evento para recalcular variáveis ou propriedades.

Exemplo

O exemplo a seguir usa os eventos Activate e Click para ilustrar o acionamento do evento UserFormResize . À medida que o usuário clica na área do cliente do formulário, ela aumenta ou diminui, e a nova altura é especificada na barra de título. Observe que a propriedade Tag é usada para armazenar a altura inicial do 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on