Принятие входных данных пользователем и отображение значений элементов управления в форме
В приведенном ниже примере показаны значения, которые могут принимать различные типы элементов управления с помощью свойства Value. Пользователь может выбрать элемент управления, нажав клавишу TAB или щелкнув элемент. В зависимости от типа элемента, пользователь может также указать для него значение, введя текст в поле элемента, щелкнув элемент один или несколько раз или выбрав элемент, страницу или вкладку элемента. Пользователь может отобразить значение выбранного элемента управления, щелкнув соответствующий элемент управления CommandButton.
Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:
Элемент 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.
Элемент TextBox с именем TextBox2.
ToggleButton с именем 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.