Exemplo da propriedade TopIndex

O exemplo a seguir identifica o item superior exibido em uma ListBox e o item que tem o foco dentro do ListBox. Este exemplo usa a propriedade TopIndex para identificar o item exibido na parte superior do ListBox e a propriedade ListIndex para identificar o item que tem o foco.

O usuário seleciona um item na ListBox. Os valores exibidos de TopIndex e ListIndex são atualizados quando o usuário seleciona um item ou quando o usuário clica no CommandButton.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Um rótulo chamado Label1.
• Uma Caixa de Texto chamada TextBox1.
• Um Label denominado Label2
• Uma TextBox denominada TextBox2.
• Um CommandButton denominado CommandButton1.
• A ListBox named 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.