Пример использования свойства ListWidth

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

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

• Элемент ComboBox с именем ComboBox1.
• Элемент SpinButton с именем SpinButton1.
• Метка с именем Label1.

Private Sub SpinButton1_Change() 
 ComboBox1.ListWidth = SpinButton1.Value 
 Label1.Caption = "ListWidth = " _ 
 & SpinButton1.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 Dim i As Integer 
 
 For i = 1 To 20 
 ComboBox1.AddItem "Choice " _ 
 & (ComboBox1.ListCount + 1) 
 Next i 
 
 SpinButton1.Min = 0 
 SpinButton1.Max = 130 
 SpinButton1.Value = Val(ComboBox1.ListWidth) 
 SpinButton1.SmallChange = 5 
 Label1.Caption = "ListWidth = " _ 
 & SpinButton1.Value 
End Sub

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

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