Aktuell markierten List-Eintrag löschen VB-Version:  VB5, VB6
	Views:  589

Um Einträge in einer ListBox zu löschen benötigen Sie die RemoveItem-Methode.

Zum Testen erstellen Sie ein neues Projekt, auf die Form kommt eine ListBox (List1) sowie ein CommandButton (Command 1). Nun der benötigte Code:

Private Sub Form_Load()
  ' ListBox mit Einträgen füllen
  Dim i As Integer
 
  For i = 1 To 10
    List1.AddItem "Eintrag " & CStr(i)  
  Next i
End Sub

Private Sub Command1_Click()
  Dim Index As Integer
 
  With List1
    Index = .ListIndex
    If Index >= 0 Then
      ' Eintrag löschen
      .RemoveItem Index
 
      ' automatisch nachfolgenden Eintrag markieren
      If Index > .ListCount - 1 Then Index = .ListCount - 1
      .ListIndex = Index
    End If
  End With
End Sub