通过

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