Rubrik: TextBox, ListBox & ComboBox | 01.05.02 |
Aktuell markierten List-Eintrag löschen VB-Version: VB5, VB6 | ||
Views: 14.248 |
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