Redigera

Dela via

Max, Min, Zoom properties, Frame, ScrollBar controls example

  • Artikel

The following example uses the Zoom property to shrink or enlarge the information displayed on a form, Page, or Frame.

This example includes a Frame, a TextBox in the Frame, and a ScrollBar. The magnification level of the Frame changes through Zoom. The user can set Zoom by using the ScrollBar. The TextBox is present to demonstrate the effects of zooming.

This example also uses the Max and Min properties to identify the range of acceptable values for the ScrollBar.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • A Label named Label1.
  • A ScrollBar named ScrollBar1.
  • A second Label named Label2.
  • A Frame named Frame1.
  • A TextBox named TextBox1 that is located inside 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.