列表框插入問題

Question

我已經研究過這個問題，無法在任何地方找到引用來解決問題。我創建了一個代碼來從文本文檔中隨機化大約20個項目，並將它們放到我的表單的列表框中。這是一份法律文件，因此一旦被隨機化，就會以不同的順序讀迴文本文件。每個項目都有一個標題：申請入學號碼。 ＃（＃是問題排列的任何數字）。儘管事實上問題的順序是混亂的，但我需要這些編號的順序（1-20）。我一直在努力，直到我得到它插入該行，增加了一個數字。但它正在向後遞增（請參閱編輯示例）。 Program output罪魁禍首語言如下。我認爲它是在那裏的某個地方：

 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 

注意：我能夠通過翻轉列表來實現它。不優雅，但它的作品。

  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

您在您的評論提供的例子應該工作，如果不是一個問題：Step -1

的For執行新的迭代時-loop是這樣工作的：

New Value = Current Value + Step 

意義，當你這樣做：

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

你一直在做Current Index + (-1)，這就是爲什麼他們最終成爲頂端;你繼續前進一步。

的簡單的方法來解決這一問題是它完全改變至Step 1或只是刪除Step部分（作爲默認步驟是1，如果省略）。

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

---

編輯：

我想我看到您的實際問題，我錯過了......這些描述已經在那裏當你添加這些頭。

在這種情況下，你應該能夠做到：

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