暂停for循环以等待用户交互

Question

我有一个问题，想知道如何暂停for ... next循环以等待用户交互。我正在比较for ... next循环中不同文件的哈希值，如果它们不同，我想暂停循环，直到用户决定保留哪个文件。

这是我的代码，所以我希望你能看到我正在尝试做的事情。

 For i = 0 To ListBox1.Items.Count - 1
        If GetCRC32(ListBox1.Items.Item(i)) = GetCRC32(ListBox2.Items.Item(i)) Then
            log("same")
        Else

            Dim v1 As String = ListBox1.Items.Item(i)
            Dim v2 As String = ListBox2.Items.Item(i)
            Dim f1 As New FileInfo(v1)
            Dim f2 As New FileInfo(v2)
            Dim c As String
            If f1.LastWriteTime > f2.LastWriteTime Then
                c = v1
            Else
                c = v2
            End If
            RichTextBox1.Text = v1 & " and " & v2 & " seem to be different." & vbCrLf & _
                "Last changed:" & c
        End If
    Next

用户交互是通过两个按钮，我还没有代码...

Answer 1

为什么不在循环中使用Form.ShowDialog。 停止执行循环，您可以询问用户您需要的任何问题。