VB.net 后台工作者在循环结束前关闭

Question

我现在有一个按钮可以调用我的后台工作程序 (BackgroundWorker1)，它工作正常，并且在我的 backgroundworker_DoWork 处理程序内部，它有一个 while 循环比较 2 个数字，第一个数字是 0 和第二个 255。现在，我也有一个progresschaged 处理程序，它应该在调用时更新我的​​ListView，但后台工作人员只运行循环3 次。代码如下：

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim worker As System.ComponentModel.BackgroundWorker = DirectCast(sender, System.ComponentModel.BackgroundWorker)
        While startIP(1) < endIP(1) ''ONLY RUNS 3 TIMES?
            test = test + 1
            worker.ReportProgress(0, "Check")
            startIP(1) = startIP(1) + 1
        End While
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        MetroListView1.Items.Add(startIP(0) & "." & startIP(1) & "." & startIP(2) & "." & startIP(3))
        MetroListView1.Refresh()
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        MessageBox.Show("Closed.")
    End Sub

我检查了这 2 个变量是否有值，它们确实有。在循环停止和 RunWorkerCompleted 处理程序运行之前，StartIP 达到 3。我真的很困惑为什么要这样做。任何帮助表示赞赏。

谢谢。

Answer 1

我真的不知道有多少人被这个叫做Option Strict Off的东西所吸引
在您的项目中，此选项设置为 Off，这意味着您的编译器允许处理仅包含数字的字符串，因为它们是数字。
但在比较两个字符串时，情况并非如此。

在字符串“3”和字符串“255”之间的比较中，较小的是“255”而不是“3”，因为“255”中的第一个字符按字母顺序小于“”中的第一个（也是唯一的）字符3"。因此，当第一个字符串达到 3 的值时，您的循环结束。

这是一个使用 Option Strict Off 运行的示例

Sub Main
    Dim i As String = "0"
    Dim e As String = "255"

    While i < e
        i = i + 1
        Console.WriteLine(i)
    End While
    ' Exits when i = "3"
End Sub

您应该将两个数组（startIP 和 endIP）声明为两个整数数组，并对数字而不是字符串进行数学运算。另外，我真的建议您避免在项目属性中将 Option Strict 设置为 On 的问题