Freigeben über

Beispiel für ZOrder-Methode, TextBox-Steuerelement

  • Artikel

Im folgenden Beispiel wird die Z-Reihenfolge eines TextBox-Steuerelements festgelegt, sodass der Benutzer das gesamte TextBox-Element anzeigen kann (indem er es an den Anfang der Z-Reihenfolge bringt) oder das TextBox-Steuerelement hinter anderen Steuerelementen platzieren kann (indem er es an die Rückseite der Z-Reihenfolge sendet).

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

  • Drei Textfeld-Steuerelemente ( TextBox ) mit der Bezeichnung "TextBox1" bis "TextBox3".
  • Ein Umschaltfeld -Steuerelement (ToggleButton) mit der Bezeichnung "ToggleButton1".
Private Sub ToggleButton1_Click() 
If ToggleButton1.Value = True Then 
 TextBox2.ZOrder(fmTop) 
 'Place TextBox2 on Top of z-order 
 
 'Update ToggleButton caption to identify next state 
 ToggleButton1.Caption = "Send TextBox2 to back" 
Else 
 TextBox2.ZOrder(1) 
 'Place TextBox2 on Bottom of z-order 
 
 'Update ToggleButton caption to identify next state 
 ToggleButton1.Caption = "Bring TextBox2 to front" 
End If 
End Sub

Private Sub UserForm_Initialize() 
'Set up text boxes to show z-order in the form 
TextBox1.Text = "TextBox 1" 
TextBox2.Text = "TextBox 2" 
TextBox3.Text = "TextBox 3" 
 
TextBox1.Height = 40 
TextBox2.Height = 40 
TextBox3.Height = 40 
 
TextBox1.Width = 60 
TextBox2.Width = 60 
TextBox3.Width = 60 
 
TextBox1.Left = 10 
TextBox1.Top = 10 
 
TextBox2.Left = 25 'Overlap TextBox2 on TextBox1 
TextBox2.Top = 25 
 
TextBox3.Left = 40 'Overlap TextBox3 on TextBox2, TextBox1 
TextBox3.Top = 40 
 
ToggleButton1.Value = False 
ToggleButton1.Caption = "Bring TextBox2 to Front" 
ToggleButton1.Left = 10 
ToggleButton1.Top = 90 
ToggleButton1.Width = 50 
ToggleButton1.Height = 50 
 
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.