列表框插入问题

Question

我对此进行了研究，但无法在任何地方找到解决此问题的参考。我创建了代码来随机化文本文档中的大约 20 个项目，并将它们放入表单上的列表框中。这是一份法律文件，因此，一旦随机化，它将以不同的顺序读回文本文件。每个项目都有一个标题：REQUEST FOR ADMISSIONS NO。 # （# 是该问题所在的任何数字）。尽管问题的顺序被打乱了，但我需要那些 # 的数字顺序（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