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 Diese Seite wurde bereits 14.266 mal aufgerufen. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |