Freigeben über

Akzeptieren von Benutzereingaben und Anzeigen der Werte von Steuerelementen in einem Formular

  • Artikel

The following example demonstrates the values that the different types of controls can have by displaying the Value property of a selected control. The user chooses a control by pressing TAB or by clicking on the control. Depending on the type of control, the user can also specify a value for the control by typing in the text area of the control, by clicking one or more times on the control, or by selecting an item, page, or tab within the control. Der Benutzer kann den Wert des ausgewählten Steuerelements anzeigen, indem er auf das entsprechend bezeichnete CommandButton-Steuerelement klickt.

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:

  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".

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

  • Ein Kontrollkästchen-Steuerelement ( CheckBox ) mit der Bezeichnung "CheckBox1".

  • Ein Kombinationsfeld-Steuerelement ( ComboBox ) mit der Bezeichnung "ComboBox1".

  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton2".

  • Ein Listenfeld-Steuerelement ( ListBox ) mit der Bezeichnung "ListBox1".

  • Ein Multiseiten-Steuerelement ( MultiPage ) mit der Bezeichnung "MultiPage1".

  • Zwei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" und "OptionButton2".

  • Ein Bildlaufleisten-Steuerelement ( ScrollBar ) mit der Bezeichnung "ScrollBar1".

  • Ein Drehfeld-Steuerelement ( SpinButton ) mit der Bezeichnung "SpinButton1".

  • Ein Register-Steuerelement ( TabStrip ) mit der Bezeichnung "TabStrip1".

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

  • Ein Umschaltfeld-Steuerelement ( ToggleButton ) mit der Bezeichnung "ToggleButton1".

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

  • Ein Umschaltfeld-Steuerelement ( ToggleButton ) mit der Bezeichnung "ToggleButton1".

Sub CommandButton1_Click() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set Form = Item.GetInspector.ModifiedFormPages("P.2") 
 TextBox1.Text = "Value of " & Form.ActiveControl.Name & " is " & Form.ActiveControl.Value 
End Sub 

Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set ListBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ListBox1") 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 
 CommandButton1.Caption = "Get value of current control" 
 CommandButton1.AutoSize = True 
 CommandButton1.TakeFocusOnClick = False 
 CommandButton1.TabStop = False 
 
 TextBox1.AutoSize = True 
 
 For i = 0 To 10 
 ComboBox1.AddItem "Choice " & (i + 1) 
 ListBox1.AddItem "Selection " & (100 - i) 
 Next 
 
 CheckBox1.TripleState = True 
 ToggleButton1.TripleState = True 
 
 TextBox2.Text = "Enter text here." 
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.