Freigeben über


Beispiel für Zoom-Ereignis, Zoom-Eigenschaft, Label-Steuerelement

Im folgenden Beispiel wird das Zoom-Ereignis verwendet, um den neuen Wert der Zoom-Eigenschaft auszuwerten, und fügt dem Formular ggf. Bildlaufleisten hinzu. Im Beispiel wird eine Bezeichnung verwendet, um den aktuellen Wert anzuzeigen.

Der Benutzer gibt die Größe für das Formular mithilfe von SpinButton an und klickt dann auf commandButton , um den Wert in der Zoom-Eigenschaft festzulegen.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
  • Ein Drehfeld-Steuerelement ( SpinButton ) mit der Bezeichnung "SpinButton1".
  • Ein Befehlsschaltflächen-Steuerelement ( CommandButton ) mit der Bezeichnung "CommandButton1".
  • Andere Steuerelemente, die in der Nähe des Formularrands platziert sind.
Private Sub CommandButton1_Click() 
 Zoom = SpinButton1.Value 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 Label1.Caption = SpinButton1.Value 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 Label1.Caption = SpinButton1.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 SpinButton1.Min = 10 
 SpinButton1.Max = 400 
 SpinButton1.Value = 100 
 Label1.Caption = SpinButton1.Value 
 
 CommandButton1.Caption = "Zoom it!" 
End Sub 
 
Private Sub UserForm_Zoom(Percent As Integer) 
 Dim MyResult As Double 
 
 If Percent > 99 Then 
 ScrollBars = fmScrollBarsBoth 
 ScrollLeft = 0 
 ScrollTop = 0 
 
 MyResult = Width * Percent / 100 
 ScrollWidth = MyResult 
 
 MyResult = Height * Percent / 100 
 ScrollHeight = MyResult 
 Else 
 ScrollBars = fmScrollBarsNone 
 ScrollLeft = 0 
 ScrollTop = 0 
 End If 
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.