破坏该代码. [英] Break that Code.

问题描述

大家好.

我在Click Button中有一个代码.但是我需要先完成第一个代码，然后再继续第二个代码.

I have a code in Click Button.But I need the first code finish then continue with second code.

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim StringToCheck As String = ""
        For I As Integer = 0 To Form2.ListBox4.Items.Count - 1
            StringToCheck &= Form2.ListBox4.Items(I).ToString & vbCrLf
        Next I
        StringToCheck = StringToCheck.Replace(vbCrLf, ",")
        StringToCheck = StringToCheck.TrimEnd(CChar(","))

        Dim StringsToCheck As String() = StringToCheck.Split(","c)


        For Each S As String In StringsToCheck
            Dim StringsToFind As String() = {S(0) & S(1), _
                                                        S(0) & S(2), _
                                                        S(0) & S(3), _
                                                        S(1) & S(2), _
                                                        S(1) & S(3), _
                                                        S(2) & S(3)}

            For Each Find As String In StringsToFind
                Dim Count As Integer = 0
                For Each Check As String In StringsToCheck
                    If Check.Contains(Find(0)) AndAlso Check.Contains(Find(1)) Then Count += 1
                Next
                Me.TextBox1.AppendText("Occurances (" & S & ", " & Find & ")= " & Count.ToString & vbCrLf)

                S1.Add(S)
                F1.Add(Find)
                C1.Add(Count)

 'Break here ,when the above finish then continue with bellow code.               '.................................................................................................

                For x As Integer = 0 To 9

                    Dim Find2 As String = Find & x.ToString

                    Dim Count2 As Integer = 0
                    For Each Check2 As String In StringsToCheck
                        If Check2.Contains(Find2(0)) AndAlso Check2.Contains(Find2(1)) AndAlso Check2.Contains(Find2(2)) Then Count2 += 1
                    Next
                    Me.TextBox2.AppendText("Occurances ( " & Find & ", " & Find2 & ")= " & Count2.ToString & vbCrLf)

                    S2.Add(Find)
                    F2.Add(Find2)
                    C2.Add(Count2)

                Next
            Next
        Next
    End Sub

推荐答案

将For X移至另一个For Each:

Move the For X into another For Each:

For Each Find As String In StringsToFind
'first part
Next

For Each Find As String In StringsToFind
  For x As Integer = 0 to 9
  'next part
  Next
Next

这篇关于破坏该代码.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！