Compartir a través de


Ejemplo de propiedad ListRows

En el ejemplo siguiente se utiliza un control SpinButton para establecer el número de filas de la lista desplegable de un control ComboBox. El usuario cambia el valor de SpinButton y, a continuación, hace clic en la flecha desplegable del ComboBox para mostrar la lista.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un elemento ComboBox denominado ComboBox1.
  • Un elemento SpinButton denominado SpinButton1.
  • Un control Label denominado Label1.
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.