Freigeben über


Beispiel fpr TopIndex-Eigenschaft

The following example identifies the top item displayed in a ListBox and the item that has the focus within the ListBox. In diesem Beispiel wird die TopIndex-Eigenschaft verwendet, um das oben im ListBox angezeigte Element zu identifizieren, und die ListIndex-Eigenschaft , um das Element zu identifizieren, das den Fokus hat.

The user selects an item in the ListBox. Die angezeigten Werte von TopIndex und ListIndex werden aktualisiert, wenn der Benutzer ein Element auswählt oder wenn der Benutzer auf das CommandButton-Steuerelement klickt.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Make sure that the form contains:

  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
  • Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox1".
  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label2".
  • Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox2".
  • CommandButton mit dem Namen "CommandButton1".
  • ListBox mit dem Namen "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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.