Resize 事件

發生於使用者窗體重設大小時。

語法

私人子UserForm_Resize ( )

註解

當父代 UserForm 重設大小時，請使用 Resize 事件過程來移動或調整控件大小。 您也可以使用此事件過程來重新計算 變數 或 屬性。

範例

下列範例使用 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

另請參閱

• Visual Basic Add-In 模型 () 的事件
• Visual Basic for Applications) (事件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。