2014-03-04 43 views
1

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

这是我的代码,所以我希望你看到我想要做的。

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 

用户交互是通过两个按钮,这是我没有代码,但...

+0

不需要显式暂停循环,只需将用户交互直接放入即可。 –

+0

听起来像你想中断与一个消息你的循环:http://msdn.microsoft.com/en-us/library/aa969773(v=vs.110).aspx – 5uperdan

+0

我还通过认为这,可能是最好的解。感谢你们! – user3378857

回答

0

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