Re: Eintrag aus Listbox löschen
09.07.2002 10:49:02
Walerij Riffel
Ich habe mir schon gedacht das es so funktionieren soll, war mir aber nicht sicher.Es liegt doch auf der Hand. Ich habe mal aus der Hilfe kleinigkeit rauskopiert. du wählst ja aus der Listbox sowieso aus dann kannst ja auch die Auswahl löschen. Siehe Beispiel.
Ich hoffe das du damit weiter kommst.
MfG
Walerij Riffel
'#####################################################
In dem folgenden Beispiel werden einem Listenfeld-Steuerelement (ListBox) Einträge hinzugefügt oder diese gelöscht. Dabei werden die Methoden AddItem, RemoveItem und SetFocus und die Eigenschaften ListIndex und ListCount verwendet.
Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie den Beispiel-Code in den Deklarationsabschitt eines Formulars. Stellen Sie sicher, daß das Formular folgendes enthält:
· Ein Listenfeld mit dem Namen ListBox1.
· Zwei Befehlsschaltfläche-Steuerelemente (CommandButton) mit den Namen CommandButton1 und CommandButton2.
Dim EntryCount As Single
Private Sub CommandButton1_Click()
EntryCount = EntryCount + 1
ListBox1.AddItem (EntryCount & " - Auswahl")
End Sub
Private Sub CommandButton2_Click()
ListBox1.SetFocus
'Sicherstellen, das Listenfeld Listenelemente enthält
If ListBox1.ListCount >= 1 Then
'Wenn kein Element ausgewählt wurde, letztes Element der Liste wählen.
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
ListBox1.RemoveItem (ListBox1.ListIndex)
End If
End Sub
Private Sub UserForm_Initialize()
EntryCount = 0
CommandButton1.Caption = "Element hinzufügen"
CommandButton2.Caption = "Element entfernen"
End Sub
Copyright(c) 1996 Microsoft Corporation.