使用参数字符串创建文本框的功能

Question

我想做一个函数。你觉得可能吗？也就是说，不必将此代码编写数百次。

Dim pieces() As String = Textbox1.Text.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

        Dim str As String = ""

        For Each piece As String In pieces
            str &= String.Join(",", piece.ToCharArray().ToList()) & ControlChars.CrLf
        Next

        Textbox2.Text = str

Answer 1

要创建 Function，您需要一个 return 类型，在本例中为 String 和一个 Return 语句。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim str = AddCommas(TextBox1.Text)
    TextBox2.Text = str
End Sub

Private Function AddCommas(inputString As String) As String
    Dim pieces() As String = inputString.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
    Dim str As String = ""
    For Each piece As String In pieces
        str &= String.Join(",", piece.ToCharArray().ToList()) & ControlChars.CrLf
    Next
    Return str
End Function

使用参数字符串创建文本框的功能

make a function of textbox with parameters string

vb.net