Max、Min 和 Zoom 属性、Frame 和 ScrollBar 控件示例
以下示例使用 Zoom 属性缩小或放大窗体、页面或 Frame 上显示的信息。
此示例包括 Frame、Frame 中的 TextBox 和 ScrollBar。 Frame 的缩放级别将通过 Zoom 发生更改。 用户可使用 ScrollBar 设置 Zoom 。 TextBox 实现对缩放效果的演示。
此示例还使用 Max 和 Min 属性来标识 ScrollBar 的可接受值范围。
若要使用此示例,请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含:
- 一个名为"Label1"的 Label 。
- 一个名为 ScrollBar1 的 ScrollBar 。
- 另一个名为 Label2 的 Label 。
- 一个名为 Frame1 的 Frame 。
- 位于 Frame1 中的一个名为 TextBox1 的 TextBox 。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。