VB：使用txt弹出框填充文本框

Question

我正在创建一个vb文件，并且我有一个txt文件，其中包含一些我想填充文本框的文件。 当前正在执行的操作：正在选择一个在创建的文本框中输入的选项。

我要做什么：使用文本框文件中的每个选项创建一个弹出窗口，在屏幕上显示它，让我选择，然后使用我的选择填充另一个文本框。 当前代码和屏幕截图：

Public Class Form1
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
    Dim f As New Form2
    Try
        f.Owner = Me
        '
        ' Before showing the child form populate TextBoxes
        '
        f.TextBox1.Text = "1"
        f.TextBox2.Text = "2"
        f.TextBox3.Text = "3"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim Box = (From T In f.Controls.OfType(Of TextBox)()
                       Where Not String.IsNullOrWhiteSpace(T.Text)
                       Select T Order By T.Name).FirstOrDefault

            If Box IsNot Nothing Then
                Me.TextBox1.Text = Box.Text
            End If
        End If
    Finally
        f.Dispose()
    End Try

End Sub

End Class

表格2

Public Class Form2
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim Box = (From T In Controls.OfType(Of TextBox)()
               Where Not String.IsNullOrWhiteSpace(T.Text)
               Select T Order By T.Name).FirstOrDefault

    If Box IsNot Nothing Then
        CType(Me.Owner, Form1).TextBox1.Text = Box.Text
    End If
    CType(Me.Owner, Form1).ActiveControl = CType(Me.Owner, Form1).cmdClose

    Close()
End Sub

End Class

图片：

编辑：现在我只需要使复选框成为锁定的文本框即可，每个文本文件都离文本行仅一行。