TextBox中Lines的应用实例

在VS中，TextBox的Lines属性可将文本内容中每一段文字（硬回车换行的内容）以数组的形式保存在Lines中，减少了用Split分割成数组的过程，加快了代码处理速度。下面通过2个简单实例，看看Lines的用法、

    Private Sub ReplaceLine(i, str) 'i=要替换的行，str=要替换的内容
        '替换指定行的文本内容
        If i >= TextBox1.Lines.Count Then Exit Sub
        Dim Lines = TextBox1.Lines
        Lines(i) = str
        TextBox1.Lines = Lines
    End Sub

    Private Sub SelectLine(i)   'i=要选择的行（从0开始）
        '选择TextBox中指定行的内容
        If i >= TextBox1.Lines.Count Then Exit Sub
        Dim strLen = 0
        Dim k = 0
        While k < i
            strLen += Len(TextBox1.Lines(k)) + 2    '2=vbCrLf长度
            k += 1
        End While
        TextBox1.SelectionStart = strLen
        TextBox1.SelectionLength = Len(TextBox1.Lines(i))
        TextBox1.Focus()
    End Sub