Max、Min、Zoom 属性 、框架、滚动条控件示例

下例用 Zoom 属性把窗体、页或者框架上显示的信息缩小或放大。该示例包括一个框架、一个框架中的文本框和一个滚动条。框架的放大倍数通过 Zoom 改变。用户可以用滚动条来设置 Zoom。文本框用来演示缩放效果。

该示例还使用 Max 和 Min 属性，来识别可接受的滚动条值的范围。

窗体包括：

• 名为 Label1 的标签。
• 名为 ScrollBar1 的滚动条。
• 名为 Label2 的第二个标签。
• 名为 Frame1 的框架。
• 位于 Frame1 中的名为 TextBox1 的文本框。

示例

sub UserForm_Initialize()
    UserForm_ScrollBar1.Max = 400
    UserForm_ScrollBar1.Min = 10
    UserForm_ScrollBar1.Value = 100
    
    UserForm_Label1.Caption = "有效范围：10-400"
    UserForm_Label2.Caption = UserForm_ScrollBar1.Value
    
    UserForm_Frame1.TextBox1.Text = "Enter your text here."
    UserForm_Frame1.TextBox1.MultiLine = True
    UserForm_Frame1.TextBox1.WordWrap = True
    
    UserForm_Frame1.Zoom = UserForm_ScrollBar1.Value
End Sub

Sub UserForm_ScrollBar1_Change()
    UserForm_Frame1.Zoom = UserForm_ScrollBar1.Value
    UserForm_Label2.Caption = UserForm_ScrollBar1.Value
End Sub