ListWidth 属性示例

以下示例使用 SpinButton 控制 ComboBox 下拉列表的宽度。 用户更改 SpinButton 的值，然后单击 ComboBox 的下拉箭头以显示列表。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含：

• 名为 ComboBox1 的 ComboBox 。
• 名为 SpinButton1 的 SpinButton 。
• 一个名为"Label1"的 Label 。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。