VB如何限制RichTextBox的行数

Question

我对 RichTextBox 有一些问题。我必须根据所需字符数限制 RTB 的大小（高度为 10，宽度为 10）。我尝试使用 maxLength 属性来限制行数。我的意思是我可以限制行数长度10 如果我将最大长度定义为 100，则只能有 10 行。没有回车键一切正常。但是当我按下回车键时，它不会计算当前行的其余部分。如果我在一行的第 6 个字符之后按下回车键，它会跳到下一行。并将上一行计为 6。因此框向下变长。在此先感谢...我的代码如下。

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
    'Here im trying to count character number of each line

    Dim count As Integer = 0
    For Each s As String In Me.RichTextBox1.Lines
        count = count + 1
        MsgBox(count)

        Dim nextLineText As String = s

        If e.KeyCode = Keys.Enter Then
            If count < (TakeFromCombo(ComboBox1)) Then
                RichTextBox1.MaxLength = RichTextBox1.MaxLength - (TakeFromCombo(ComboBox1) - nextLineText.Length)
            End If
        End If

        'I tried to disable enter key at last line
        If count = TakeFromCombo(ComboBox1) Then
            If e.KeyCode = Keys.Enter Then
                e.Handled = True
            End If
        End If
    Next

End Sub

Answer 1

这个怎么样？ （其中 rtb1 是您的 RichTextBox）：

Private Sub rtb1_KeyDown(sender As Object, e As KeyEventArgs) Handles rtb1.KeyDown
    If rtb1.Text.Length > 0 Then
        If rtb1.Lines.Count = 11 Then
            e.SuppressKeyPress = True
        End If
        If rtb1.Lines(rtb1.GetLineFromCharIndex(rtb1.GetFirstCharIndexOfCurrentLine)).Length > 9 And e.KeyCode <> Keys.Return Then
            e.SuppressKeyPress = True
        End If
    End If
End Sub

处理这种情况的工具有点粗糙。 GetFirstCharIndexOfCurrentLine 返回整个 RTB 文本字符串中的字符索引。 GetLineFromCharIndex(i) 获取包含 i 的文本行的索引。 Lines() 返回一个包含所有行的数组（这只是 RTB 的文本，在回车上拆分，Lines(i) 与任何数组一样，返回该索引处的数组成员（使用前面描述的两个RTB 方法）。