Mit VB gibt es eine bessere Möglichkeit, die letzte X Menge von Elementen aus der ListBox zu entfernen?

Question

Zum letzten 10 Elemente entfernen Ich benutze

For i As Integer = 1 To 10 
    ListBox1.Items.RemoveAt(ListBox1.Items.Count - 1) 
Next i 

Gibt es eine bessere, eine Zeile Lösung?

EDIT:

ich sehe, dass meine Frage wird gehalten und möchte ein wenig besser erklären, was ich frage. In meinem Bemühen, den Regeln dieses Boards zu folgen, versuchte ich, die Frage kurz und auf den Punkt zu bringen und vielleicht machte es das nicht klar. Bitte denken Sie daran, dass ich VB erst seit ein paar Wochen sehr neu bin. Es gibt also eine Menge, die ich noch nicht kenne.

Ich habe einige Bedarfserfahrungen mit VBA und Excel und das hat mich dazu gebracht, die Frage zu stellen. Nehmen wir an, ich habe eine Liste von Elementen in Spalte A des Excel-Dokuments und ich muss die letzten 10 Elemente aus der Liste löschen. Vorläufig so tun, als ob es immer mehr als 10 Elemente gibt und wir müssen nicht dafür verantwortlich sein, dass es weniger gibt und dass es auch keine leeren Zellen in der Liste gibt. Der Code, den ich benutzen würde wäre:.

Range ("A999999") End (xlUp) .Offset (-10, 0) .Range. ("A1: A10") löschen Shift: = xlUp

Sehen Sie, wie es eine Ein-Zeilen-Lösung ist, ohne jede Zelle zu durchlaufen? Ich gebe es nur eine Reihe und sagte ihm, es zu löschen. Das machte mich neugierig auf VB und darauf, ob es etwas Ähnliches geben könnte, anstatt jeden einzelnen Gegenstand zu durchlaufen. Ich dachte, es könnte sein, und ich bin vielleicht aufgrund meiner Unerfahrenheit nicht damit vertraut. Grundsätzlich meine Frage ist - ist etwas so einfach wie ListBox1.Items.RemoveLast (10) in VB oder nicht existiert? Ich hoffe, dass dies einigen von euch geholfen hat zu verstehen, wo ich hergekommen bin, mit meiner Frage und danke fürs Lesen.

Answer 1

Man könnte es auf diese Weise tun:

Dim amountToRemove As Integer = 10 
    Dim items As IEnumerable(Of Object) = Me.ListBox1.Items.Cast(Of Object)() 

    If (items.Count < amountToRemove) Then 
     Throw New IndexOutOfRangeException(message:="...") 

    Else 
     Me.ListBox1.SuspendLayout() 
     For i As Integer = 0 To (amountToRemove - 1) 
      Me.ListBox1.Items.Remove(items.Last) 
     Next i 
     Me.ListBox1.ResumeLayout() 

    End If 

Wenn Sie eine einzeilige Lösung wollen, legen Sie die Logik in eine Methode, dann eine Zeile verwenden Sie es zu nennen.