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
用户交互是通过两个按钮,这是我没有代码,但...
不需要显式暂停循环,只需将用户交互直接放入即可。 –
听起来像你想中断与一个消息你的循环:http://msdn.microsoft.com/en-us/library/aa969773(v=vs.110).aspx – 5uperdan
我还通过认为这,可能是最好的解。感谢你们! – user3378857