Приостановите цикл 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 в цикле. Останавливает выполнение цикла, и вы можете задать пользователю любой вопрос, который вам нужен.