Freigeben über

Aktivieren und Sperren eines Textfelds aus Benutzereintrag

  • Artikel

Das folgende Beispiel veranschaulicht, wie sich die Enabled - und Locked -Eigenschaften gegenseitig ergänzen. Dieses Beispiel setzt für jede Eigenschaft unabhängig voneinander ein Kontrollkästchen-Steuerelement ( CheckBox ) ein, damit Sie die Einstellungen einzeln und kombiniert überprüfen können. Darüber hinaus wird in diesem Beispiel ein zweites Textfeld-Steuerelement ( TextBox ) eingesetzt, damit Sie Informationen zwischen den Textfeld-Steuerelementen ( TextBox ) kopieren und einfügen sowie die von diesen Eigenschaften unterstützten Optionen überprüfen können.

Hinweis Sie können die Auswahl mit STRG+C in die Zwischenablage kopieren und mit STRG+V einfügen.

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

  • A TextBox named TextBox1.

  • Zwei Kontrollkästchen-Steuerelemente ( CheckBox ) mit der Bezeichnung "CheckBox1" und "CheckBox2".

  • Ein zweites Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox2".

Dim TextBox1 
Dim TextBox2 
Dim CheckBox1 
Dim CheckBox2 
 
Sub CheckBox1_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Sub CheckBox2_Click() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox2") 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox1") 
 Set CheckBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox2") 
 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
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.