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 支持和反馈，获取有关如何接收支持和提供反馈的指南。