RemoveItem

Entfernt eine Zeile aus der Liste eines Listenfeldes oder Kombinationsfeldes.

Diese Methode entfernt keine Zeile aus der Liste, wenn das Listenfeld-Steuerelement (ListBox) an eine Datenbank gebunden ist (dies ist dann der Fall, wenn die RowSource-Eigenschaft eine Datenquelle für das Listenfeld-Steuerelement angibt).

 

Private Sub cmdLöschen_Click()

    Dim A

    'entfernt markierte Items

    A = lstFrei.ListIndex

    If A <> -1 Then 'Wenn kein Element ausgewählt, ist Listindex = -1

        lstFrei.RemoveItem (A)

    End If

End Sub

'Gesamten Inhalt der Listbox löschen: frmNamen.lstFrei.Clear