Listbox-Einfügung Problem

Question

Ich habe dies recherchiert und kann nirgendwo eine Referenz finden, um das Problem zu beheben. Ich habe Code erstellt, um etwa 20 Elemente aus einem Textdokument zu randomisieren, und lege sie in ein Listenfeld auf meinem Formular. Dies ist ein rechtliches Dokument, also würde es einmal zufällig in das Textdokument zurückgelesen werden, nur in einer anderen Reihenfolge. Jeder Artikel hat eine Überschrift: ANTRAG AUF EINTRAG NR. # (# ist die Nummer, die in der Zeile steht). Ich brauche diese # in der Reihenfolge der Nummern (1-20), obwohl die Reihenfolge der Fragen verschlüsselt ist. Ich habe weiter daran gearbeitet, bis ich die Zeile mit einer erhöhten Nummer eingefügt habe. Aber es erhöht sie rückwärts (siehe redigiertes Beispiel). Program output Die Schuldige Sprache ist unten. Ich denke, dass es dort irgendwo ist:

 ListBox1.BeginUpdate() 
      Try 
       'do with listBox1.Items[i] 
       For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1 
        ListBox1.Items.Insert(i, "REQUEST FOR ADMISSION NO. " & nxtNum & vbCrLf) 
        nxtNum += 1 
       Next 
      Finally 
       ListBox1.EndUpdate() 
      End Try 

Hinweis: Ich konnte es durch Umklappen der Liste an der Arbeit. Nicht elegant, aber es funktioniert.

  ListBox1.BeginUpdate() 

      Try 
       'do with listBox1.Items[i] 

       For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1 

        ListBox1.Items.Insert(i + 1, "REQUEST FOR ADMISSION NO. " & nxtNum & vbCrLf) 
        nxtNum += 1 
       Next 

      Finally 
       ListBox1.EndUpdate() 
      End Try 

      nxtNum = 1 

      Dim items() As Object = ListBox1.Items.Cast(Of Object).Reverse.ToArray 
      ListBox1.Items.Clear() 
      ListBox1.Items.AddRange(items) 

Answer 1

Das Beispiel, das Sie in Ihrem Kommentar versehen soll, wenn nicht für ein Problem umgehen: die Step -1

Die For -loop wie dies funktioniert, wenn eine neue Iteration ausführt:

New Value = Current Value + Step 

Bedeutung, Wenn Sie das tun:

For i As Integer = 0 To ListBox1.Items.Count - 1 Step -1 

machen Sie weiter Current Index + (-1), weshalb sie in der Spitze landen; Du gehst einen Schritt zurück.

Der einfache Weg, um dies zu beheben, ist es, es zu Step 1 ändern oder entfernen Sie einfach den Step Teil vollständig (als Standardschritt ist 1, falls weggelassen).

For i As Integer = 0 To ListBox1.Items.Count - 1 
    ...your code... 
Next 

---

EDIT:

Ich glaube, ich Ihre eigentliche Problem sehe, ich es verpasst ... Die Beschreibungen sind bereits da, wenn man diese Header hinzufügen.

In diesem Fall sollten Sie in der Lage zu tun:

For i As Integer = 0 To ListBox1.Items.Count - 1 Step 2 
    ...your code... 
Next