Vb.net 反向文本框多行

我有文本框。行

2
4
3
9

预期产出：

我该如何使用该代码？该代码适用于文本长度，而不是行

Public Sub ReverseText(ByVal Textbx As TextBox)
    Dim sOutput As String = ""
    For i = Textbx.TextLength - 1 To 0 Step -1
        sOutput &= Textbx.Text.ElementAt(i)
    Next
    Textbx.Text = sOutput
End Sub

---

您可以使用

TextBox

的

Lines

属性来获取每行文本

只需对代码进行简单修改即可完成以下每一行操作，即可解决您的问题：

Public Sub ReverseText(ByVal Textbx As TextBox)
    Dim sOutput(Textbx.Lines.Length) As String
    Dim Count As Integer = 0

    For i = Textbx.Lines.Length - 1 To 0 Step -1
        sOutput(Count) = Textbx.Lines(i)
        Count += 1
    Next

    Textbx.Lines = sOutput
End Sub

在上面的代码中，创建了一个名为

sOutput

的

字符串的新
数组

然后将
文本框
中的每一行

按相反顺序添加到

sOutput

数组中

---

最后，

文本框

的

行

用新的反向数组更新

马丁的答案是正确的。但是，您可以使用内置函数反转数组的顺序，如下所示：

Public Sub ReverseText(ByVal Textbx As TextBox)
    Textbx.Lines = Textbx.Lines.Reverse.ToArray 
End Sub

Public Sub ReverseText(ByVal Textbx As TextBox)
    Textbx.Lines = Textbx.Lines.Reverse.ToArray 
End Sub