ListIndex

Bezeichnet das momentan ausgewählte Element in einem Listenfeld-Steuerelement (ListBox) oder Kombinationsfeld-Steuerelement (ComboBox).

Hinweise

Die ListIndex-Eigenschaft enthält einen Index der ausgewählten Zeile in einer Liste. Die Werte von ListIndex liegen im Bereich von -1 bis zur Gesamtanzahl der Zeilen in einer Liste - 1 (d.h. ListCount - 1). Wenn keine Zeilen ausgewählt sind, gibt ListIndex den Wert -1 zurück. Wenn der Benutzer eine Zeile in einem Listenfeld-Steuerelement oder Kombinationsfeld-Steuerelement auswählt, legt das System den Wert für ListIndex fest. Der Wert für ListIndex der ersten Zeile in einer Liste ist 0, der Wert der zweiten Zeile ist 1 usw.

Anmerkung   Wenn Sie die MultiSelect-Eigenschaft verwenden, um ein Listenfeld-Steuerelement zu erstellen, das eine Mehrfachauswahl ermöglicht, gibt die Selected-Eigenschaft des Listenfeld-Steuerelements (anstatt der ListIndex-Eigenschaft) die ausgewählten Zeilen an. Die Selected-Eigenschaft ist ein Datenfeld, das so viele Werte enthält, wie sich Zeilen im Listenfeld-Steuerelement befinden. Für jede Zeile im Listenfeld hat Selected den Wert True, wenn die Zeile ausgewählt ist, und False, wenn die Zeile nicht ausgewählt ist. In einem Listenfeld-Steuerelement, das eine Mehrfachauswahl zulässt, gibt ListIndex den Index der Zeile zurück, die den Fokus hat, unabhängig davon, ob diese Zeile momentan ausgewählt ist.

Der Wert von ListIndex ist auch verfügbar, wenn die BoundColumn-Eigenschaft für ein Kombinationsfeld oder Listenfeld auf den Wert 0 gesetzt wird. Wenn BoundColumn den Wert 0 hat, enthält die zugrunde liegende Datenquelle, an die das Kombinationsfeld oder Listenfeld gebunden ist, den gleichen Wert für den Listenindex wie ListIndex.

 

Beispiel:

Private Sub spSchieben_SpinDown()

'Ausgewähltes Element wird nach unten verschoben

    Dim A, B

    A = lstFrei.ListIndex

    If A = -1 Or A = lstFrei.ListCount - 1 Then

        Exit Sub

    End If

   

    B = lstFrei.List(A)

    lstFrei.List(A) = lstFrei.List(A + 1)

    lstFrei.List(A + 1) = B

    lstFrei.ListIndex = lstFrei.ListIndex + 1

End Sub