Пример использования свойства TopIndex

В следующем примере определяется верхний элемент, отображаемый в элементе ListBox , и элемент с фокусом в ListBox. В этом примере свойство TopIndex используется для идентификации элемента, отображаемого в верхней части ListBox, и свойство ListIndex для идентификации элемента, на котором находится фокус.

Пользователь выбирает элемент в ListBox. Отображаемые значения TopIndex и ListIndex обновляются, когда пользователь выбирает элемент или щелкает элемент CommandButton.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

• Метка с именем Label1.
• Объект TextBox с именем TextBox1.
• Элемент Label с именем Label2.
• Элемент TextBox с именем TextBox2.
• Элемент CommandButton с именем CommandButton1.
• Элемент ListBox с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.