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

Установка ширины списка Drop-Down поля со списком

  • Статья

В следующем примере используется SpinButton для управления шириной раскрывающегося списка ComboBox. Пользователь изменяет значение элемента SpinButton и затем щелкает стрелку элемента ComboBox, чтобы открыть список.

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

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

  • SpinButton с именем SpinButton1, привязанный к настраиваемой строке с именем SpinButtonValue.

  • Метка с именем Label1.

Sub Item_Open() 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1") 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1") 
 
 For i = 1 To 20 
 ComboBox1.AddItem "Choice " & (ComboBox1.ListCount + 1) 
 Next 
 SpinButton1.Min = 0 
 SpinButton1.Max = 130 
 
 'convert listwidth value from '122 pt' to an integer 
 intpos = instr(combobox1.listwidth," ") 
 intwidth = left(combobox1.listwidth,intpos-1) 
 SpinButton1.Value = intwidth 
 SpinButton1.SmallChange = 5 
 Label1.Caption = "ListWidth = " & SpinButton1.Value 
End Sub 
 
Sub Item_CustomPropertyChange(byval pname) 
 If pname = "SpinButtonValue" Then 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1") 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1") 
 
 ComboBox1.ListWidth = SpinButton1.Value 
 Label1.Caption = "ListWidth = " & SpinButton1.Value 
 End If 
End Sub

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

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