Max、Min、Zoom 屬性、Frame、ScrollBar 控制項範例

下列範例會使用 Zoom 屬性來壓縮或放大表單、Page 或 Frame 上顯示的資訊。

此範例包含Frame、Frame中的TextBox和ScrollBar。 Frame的縮放層級會透過Zoom變更。 使用者可以使用ScrollBar來設定Zoom。 TextBox是用來示範縮放效果。

此範例也會使用 Max 和 Min 屬性來識別 ScrollBar可接受的值範圍。

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

• 一個名為 Label1 的 Label 。
• 一個名為 ScrollBar1 的 ScrollBar 。
• 第二個名為 Label2 的卷 標。
• 一個名為 Frame1 的 Frame 。
• 一個名為 TextBox1 的 TextBox ，位於 Frame1 內。

Private Sub UserForm_Initialize() 
 ScrollBar1.Max = 400 
 ScrollBar1.Min = 10 
 ScrollBar1.Value = 100 
 
 Label1.Caption = "10 -----Percent of " _ 
 & "Original Size---- 400" 
 Label2.Caption = ScrollBar1.Value 
 
 Frame1.TextBox1.Text = "Enter your text here." 
 Frame1.TextBox1.MultiLine = True 
 Frame1.TextBox1.WordWrap = True 
 
 Frame1.Zoom = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Frame1.Zoom = ScrollBar1.Value 
 Label2.Caption = ScrollBar1.Value 
End Sub

支援和意見反應

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