Value-Eigenschaft (Beispiel)

Im folgenden Beispiel werden die Werte veranschaulicht, die die verschiedenen Steuerelementtypen aufweisen können, indem die Value-Eigenschaft eines ausgewählten Steuerelements angezeigt wird.

Der Benutzer wählt ein Steuerelement aus, indem er die TAB-TASTE drückt oder auf das Steuerelement klickt. 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.

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

• 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".

Dim i As Integer 
 
Private Sub CommandButton1_Click() 
 TextBox1.Text = "Value of " & ActiveControl.Name _ 
 & " is " & ActiveControl.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 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 i 
 
 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.