Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Resize-Ereignis (Beispiel)

Im folgenden Beispiel werden die Ereignisse Activate und Click verwendet, um zu veranschaulichen, wie das Resize-Ereignis des UserForm-Objekts ausgelöst wird. Sobald der Benutzer auf den Client-Bereich des Formulars klickt, wird das Formular vergrößert oder verkleinert, und die neue Höhe wird in der Titelleiste angegeben. Beachten Sie, daß die Tag-Eigenschaft verwendet wird, um die ursprüngliche Höhe des UserForm-Objekts zu speichern.

' Activate-Ereignis für UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Zum Vergrößern auf das Formular klicken"
    Tag = Height    ' Ursprüngliche Höhe speichern.
End Sub

' Click-Ereignis für UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' Kleines Formular vergrößern.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' Großes Formular verkleinern.
        Height = Val(Tag)
    End If
End Sub

' Resize-Ereignis für UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "Neue Höhe: " & Height & "  " & " Zum Ändern der Größe auf das Formular klicken"
End Sub