Ereignis zum Ändern der Größe

  • Artikel

Tritt auf, wenn die Größe eines UserForm-Formulars geändert wird.

Syntax

Private Sub UserForm_Resize( )

HinwBemerkungeneise

Verwenden Sie eine Resize-Ereignisprozedur, um Steuerelemente zu verschieben oder ihre Größe zu ändern, wenn die Größe des übergeordneten UserForm-Formulars geändert wird. Sie können diese Ereignisprozedur auch verwenden, um Variablen oder Eigenschaften neu zu berechnen.

Beispiel

Im folgenden Beispiel werden die Ereignisse Activate und Click verwendet, um das Auslösen des UserForm-Resize-Ereignisses zu veranschaulichen. Wenn der Benutzer auf den Clientbereich des Formulars klickt, wird es vergrößert oder verkleinern, und die neue Höhe wird in der Titelleiste angegeben. Beachten Sie, dass die Tag-Eigenschaft verwendet wird, um die anfängliche Höhe des UserForms zu speichern.

' 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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.