Пример использования свойства Value
В следующем примере демонстрируются значения, которые могут быть у различных типов элементов управления путем отображения свойства Value выбранного элемента управления.
Пользователь выбирает элемент управления, нажав клавишу TAB или щелкнув элемент управления. В зависимости от типа элемента, пользователь может также указать для него значение, введя текст в поле элемента, щелкнув элемент один или несколько раз или выбрав элемент, страницу или вкладку элемента. Пользователь может отобразить значение выбранного элемента управления, щелкнув соответствующий элемент управления CommandButton.
Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:
- Элемент CommandButton с именем CommandButton1.
- Объект TextBox с именем TextBox1.
- CheckBox с именем CheckBox1.
- Объект ComboBox с именем ComboBox1.
- Элемент CommandButton с именем CommandButton2.
- Объект ListBox с именем ListBox1.
- Объект MultiPage с именем MultiPage1.
- Два элемента управления OptionButton с именами OptionButton1 и OptionButton2.
- ScrollBar с именем ScrollBar1.
- SpinButton с именем SpinButton1.
- Объект TabStrip с именем TabStrip1.
- Элемент TextBox с именем TextBox2.
- ToggleButton с именем 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.