Tipp 0407 Listeneinträge löschen
Autor/Einsender:
Datum:
  Ronald Janowski
13.08.2004
Entwicklungsumgebung:   VB 6
In diesem Beispiel werden die markierten Listeneinträge mit VB-Mitteln gelöscht. Dazu wird der Auswahlzustand aller Elemente des Listenfelds mit Hilfe der Selected-Eigenschaft ermittelt, und wenn markiert, gelöscht.
 
Option Explicit

Private Sub Form_Load()
  Dim n As Long

  For n = 1 To 100
    List1.AddItem "Eintrag " & CStr(n)
  Next
End Sub

Private Sub cmdDelete_Click()
  Dim n As Long

  With List1
    Select Case .SelCount
      Case 0
        MsgBox "Es sind keine Einträge zum Löschen markiert!", _
                    vbOKOnly, Title:="VB-fun-Demo"

      Case 1
        .RemoveItem .ListIndex

      Case Else
        For n = .ListCount - 1 To 0 Step -1
          If .Selected(n) = True Then
            .RemoveItem n
          End If
        Next
    End Select
  End With
End Sub
 
Weitere Links zum Thema
Listeneinträge löschen (API)

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,7 kB) Downloads bisher: [ 601 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 6. August 2011