Zoom 事件、Zoom 屬性、Label 控制項範例

下列範例會使用 Zoom 事件來評估 Zoom 屬性的新值，並在適當時將捲軸新增至表單。 此範例會使用 Label 來顯示目前的值。

使用者使用 SpinButton指定表單的大小，然後按一下 CommandButton 以在 Zoom 屬性中設定值。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含：

• 一個名為 Label1 的 Label 。
• 一個名為 SpinButton1 的 SpinButton 。
• 一個名為 CommandButton1 的 CommandButton 。
• 放在表單邊緣附近的其他控制項。

Private Sub CommandButton1_Click() 
 Zoom = SpinButton1.Value 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 Label1.Caption = SpinButton1.Value 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 Label1.Caption = SpinButton1.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 SpinButton1.Min = 10 
 SpinButton1.Max = 400 
 SpinButton1.Value = 100 
 Label1.Caption = SpinButton1.Value 
 
 CommandButton1.Caption = "Zoom it!" 
End Sub 
 
Private Sub UserForm_Zoom(Percent As Integer) 
 Dim MyResult As Double 
 
 If Percent > 99 Then 
 ScrollBars = fmScrollBarsBoth 
 ScrollLeft = 0 
 ScrollTop = 0 
 
 MyResult = Width * Percent / 100 
 ScrollWidth = MyResult 
 
 MyResult = Height * Percent / 100 
 ScrollHeight = MyResult 
 Else 
 ScrollBars = fmScrollBarsNone 
 ScrollLeft = 0 
 ScrollTop = 0 
 End If 
End Sub

支援和意見反應

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