同步兩個文本框行VB.Net

Question

如何同步2個文本框？ 我的意思是，如果我隨機化第一個文本框（隨機化文本行）如何在第一個文本框之后同步第二個文本框？

我還想要包含項目的4個文本框保存在（Answer.dat）中，例如，如果在第一個文本框中我在第3個文本框中的第2個文本框元素（21）中有元素（BlackJack），則撲克元素和第4個文本框文本框元素賓果。

我想在新行（在我的文本文件中）保存這個類似於模型（空白空白+ Word（文本框3）+空格+單詞（文本框4）+空格+單詞（文本框5）+空格+單詞（文本框6）這是截圖如何保存項目。不幸的是，我一開始並沒有做好空白。

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = System.IO.File.ReadAllText(My.Application.Info.DirectoryPath + ("\Data\Question.dat"))
        TextBox2.Text = System.IO.File.ReadAllText(My.Application.Info.DirectoryPath + ("\Data\Answer.dat"))
    End Sub
End Class

那么如何在文本框中保存新文本框（保存到我的文本文件）中的問題和答案呢？ 按照給出的例子？

Answer 1

下面的代碼將使行在隨機shuffle上保持同步。 如果您不想重復行，則必須對已經發生的拋出繪制進行代碼驗證。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim text1 As String
        Dim text2 As String
        Dim textarray1 As New ArrayList
        Dim textarray2 As New ArrayList
        Dim NextMember As String = ""
        Dim Rand As New Random
        Dim RandNum As Integer = 0
        TextBox1.Clear()
        TextBox2.Clear()


        text1 = "one" & vbCrLf & "two" & vbCrLf & "three" & vbCrLf
        text2 = "A" & vbCrLf & "B" & vbCrLf & "C" & vbCrLf

        For i = 1 To Len(text1)
            Do Until Mid(text1, i, 1) = vbCr
                NextMember = NextMember & Mid(text1, i, 1)
                i = i + 1
            Loop

            textarray1.Add(NextMember)
            i = i + 1
            NextMember = ""
        Next

        For i = 1 To Len(text2)
            Do Until Mid(text2, i, 1) = vbCr
                NextMember = NextMember & Mid(text2, i, 1)
                i = i + 1
            Loop

            textarray2.Add(NextMember)
            i = i + 1
            NextMember = ""
        Next


        For i = 0 To textarray1.Count - 1
            RandNum = Rand.Next(textarray1.Count)
            TextBox1.Text = TextBox1.Text & textarray1(RandNum) & vbCrLf
            TextBox2.Text = TextBox2.Text & textarray2(RandNum) & vbCrLf
        Next



    End Sub