ListRows 属性示例

以下示例使用 SpinButton 控制 ComboBox 下拉列表中的行数。 用户更改 SpinButton 的值,然后单击 ComboBox 的下拉箭头以显示列表。

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

  • 名为 ComboBox1 的 ComboBox
  • 名为 SpinButton1 的 SpinButton
  • 一个名为"Label1"的 Label
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 = 12 
 SpinButton1.Value = ComboBox1.ListRows 
 Label1.Caption = "ListRows = " & SpinButton1.Value 
End Sub 
 
Private Sub SpinButton1_Change() 
 ComboBox1.ListRows = SpinButton1.Value 
 Label1.Caption = "ListRows = " & SpinButton1.Value 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。