Поделиться через

Настройка стиля ввода для поля со списком

  • Статья

В следующем примере свойство Style используется для изменения стиля ввода comboBox пользователем. Пользователь выбирает стиль, выбирая элемент управления OptionButton , а затем вводит в comboBox , чтобы выбрать элемент. Если параметр Style имеет значение StyleDropDownList, пользователь должен выбрать элемент из раскрывающегося списка. Если параметр Style имеет значение StyleDropDownCombo, пользователь может ввести текст, чтобы указать элемент в раскрывающемся списке.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:

  • Два элемента управления OptionButton с именами OptionButton1 и OptionButton2.

  • Элемент ComboBox с именем ComboBox1.

Sub OptionButton1_Click() 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 ComboBox1.Style = 0 '0=fmStyleDropDownCombo 
End Sub 
 
Sub OptionButton2_Click() 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 ComboBox1.Style = 2 '2=fmStyleDropDownList 
End Sub 
 
Sub Item_Open() 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1") 
 Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2") 
 
 For i = 1 To 10 
 ComboBox1.AddItem "Choice " & i 
 Next 
 
 OptionButton1.Caption = "Select like ComboBox" 
 OptionButton1.Value = True 
 ComboBox1.Style = 0 '0=fmStyleDropDownCombo 
 
 OptionButton2.Caption = "Select like ListBox" 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.