Question

我试图让单个文本框（txtRecord）分成6个其他文本框。（txtField1，txtField2，txtField3，txtField4，txtField5，txtField6）。我想在每个逗号分开。示例输入：555 Some St.，City，State，ZipCode。我希望每个破碎的（555 Some St.）都会进入txtField1。（City）将进入txtField2。（州）将进入txtField3。（ZipCode）将进入txtField4。我再次需要逗号作为断点。当分割输入时，我需要删除逗号。我已经让它们拆分但是如果我没有为每个文本框提供信息它会引发错误，它也会将逗号放入txtFields。旁注我有Option Srtict ON。我也知道lablels会更好用，但项目需要文本框。

Private Sub btnBreakApart_Click(sender As Object, e As EventArgs) Handles btnBreakApart.Click


    Dim strRecord As String = txtRecord.Text
    Dim ArryList() As String = strRecord.Split(CType(",", Char()))
    Dim ctrlText As TextBox() = New TextBox() {txtField1, txtField2, txtField3, txtField4, txtField5, txtField6}

    'Return txtRecord input box back to white
    txtRecord.BackColor = Color.White

    'Split data into different text boxes
    If txtRecord.Text = "" Then
        MessageBox.Show("Null Value Not Allowed")
        txtRecord.Focus()
        txtRecord.BackColor = Color.Yellow
    Else
        For x As Integer = 0 To strRecord.Length - 1
            ctrlText(x).Text = strRecord(x)
        Next
    End If

Answer 1

我会将分割更改为使用单个字符以提高可读性

Dim ArryList() As String = strRecord.Split(","c)

并访问生成的拆分项

For x = 0 To ArryList.Count - 1
    ctrlText(x).Text = ArryList(x).Trim()
Next

将文本从输入拆分为多个文本框

1 个答案: