Freigeben über


Max-, Min- und Zoom-Eigenschaft, Frame-Steuerelement, ScrollBar-Steuerelement (Beispiel)

Im folgenden Beispiel wird die Zoom-Eigenschaft verwendet, um die Informationen zu verkleinern oder zu vergrößern, die auf einem Formular, einer Seite oder einem Frame angezeigt werden.

Dieses Beispiel enthält einen Frame, ein TextBox-Element im Frame und eine ScrollBar. Die Vergrößerungsstufe eines Frames ändert sich durch die Zoom -Eigenschaft. Der Benutzer kann die Zoom -Eigenschaft mit dem ScrollBar -Steuerelement festlegen. Das TextBox -Steuerelement ist vorhanden, um die Effekte des Zoomens darzustellen.

In diesem Beispiel werden auch die Eigenschaften Max und Min verwendet, um den Bereich der zulässigen Werte für scrollBar zu identifizieren.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Make sure that the form contains:

  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
  • Ein ScrollBar mit der Bezeichnung "ScrollBar1".
  • Ein zweites Label -Element mit der Bezeichnung "Label2".
  • Ein Frame -Element mit der Bezeichnung "Frame1".
  • Ein TextBox -Element mit der Bezeichnung "TextBox1", das sich in "Frame1" befindet.
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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.