vb.net - 使用参数字符串制作文本框的功能

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

标签： vb.net

Answer 1

要创建一个Function你需要一个返回类型，在这种情况下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