Ejemplo de propiedad TopIndex

En el ejemplo siguiente se identifica el primer elemento mostrado en un control ListBox y también el que tiene el foco dentro del control ListBox. En este ejemplo se usa la propiedad TopIndex para identificar el elemento que se muestra en la parte superior de ListBox y la propiedad ListIndex para identificar el elemento que tiene el foco.

El usuario selecciona un elemento en el control ListBox. Los valores mostrados de TopIndex y ListIndex se actualizan cuando el usuario selecciona un elemento o cuando el usuario hace clic en el control CommandButton.

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 control Label denominado Label1.
• Un control TextBox denominado TextBox1.
• Un control Label denominado Label2.
• Un control TextBox denominado TextBox2.
• Un CommandButton llamado CommandButton1.
• Un ListBox llamado ListBox1.

Private Sub CommandButton1_Click() 
 ListBox1.TopIndex = ListBox1.ListIndex 
 TextBox1.Text = ListBox1.TopIndex 
 TextBox2.Text = ListBox1.ListIndex 
End Sub 
 
Private Sub ListBox1_Change() 
 TextBox1.Text = ListBox1.TopIndex 
 TextBox2.Text = ListBox1.ListIndex 
End Sub 
 
Private Sub UserForm_Initialize() 
 Dim i As Integer 
 
 For i = 0 To 24 
 ListBox1.AddItem "Choice " & (i + 1) 
 Next i 
 ListBox1.Height = 66 
 CommandButton1.Caption = "Move to top of list" 
 CommandButton1.AutoSize = True 
 CommandButton1.TakeFocusOnClick = False 
 
 Label1.Caption = "Index of top item" 
 TextBox1.Text = ListBox1.TopIndex 
 
 Label2. Caption = "Index of current item" 
 Label2.AutoSize = True 
 Label2.WordWrap = False 
 TextBox2.Text = ListBox1.ListIndex 
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.