Max、Min 和 Zoom 属性、Frame 和 ScrollBar 控件示例

以下示例使用 Zoom 属性缩小或放大窗体、页面或 Frame 上显示的信息。

此示例包括 FrameFrame 中的 TextBoxScrollBarFrame 的缩放级别将通过 Zoom 发生更改。 用户可使用 ScrollBar 设置 ZoomTextBox 实现对缩放效果的演示。

此示例还使用 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。